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FOREWORD 

This  report  summarizes  the  work  done  under  Air  Force  Aero  Propulsion 
Laboratory  Contract  No.  F3361 5-74-C-2030  during  the  period  of  2 February 
1974  to  31  September  1977.  It  contains  the  analytical  work  describing 
the  propagation  of  sound  waves  in  the  acoustically  lined  ducts  typically 
found  in  quieted  high-bypass  turbojet  engine  nacelles.  It  also  contains 
computer  programs  developed  to  predict  the  effects  of  acoustic  lining  in 
the  ducts.  The  work  was  done  by  Dr.  John  J.  Schauer,  Mr.  Eugene  P. 
Hoffman,  Mr.  Marvin  E.  Himes,  and  Mr.  Robert  W.  Guyton  of  the  University 
of  Dayton  under  Project  Engineers  Lt.  Craig  A.  Lyon  and  Lt.  Robert  M. 
McGregor  of  the  Aero  Propulsion  Laboratory,  AFAPL/TBC,  Wright-Patterson 
Air  Force  Base,  Ohio  45433. 
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SECTION  I 


INTRODUCTION  AND  SUMMARY 


Recent  Air  Force  regulation  80-36  states  that  Air  Force  tankers 
and  transports  should  meet  the  commercial  noise  regulations  (FAR  36). 
Since  the  dominant  noise  source  of  the  high  bypass  turbojet  engines 
typical  for  these  applications  is  the  fan,  it  is  logical  that  the  investiga- 
tion of  the  duct  linings  which  keep  the  fan  and  core  noise  from  escaping 
via  the  inlet  and  exhaust  ducts  should  receive  attention.  There  are 
several  reasons  that  this  attention  should  be  focused  into  the  Air  Force 
itself,  rather  than  scattered  throughout  the  commercial  aircraft  industry. 

First,  is  the  need  for  sophisticated,  standardized  prediction 
procedure  for  evaluating  competitive  aircraft  designs  on  an  acoustical 
basis.  The  need  exists  because  of  the  differences  in  the  many  existing 
prediction  programs  currently  in  use  by  the  aircraft  industry.  A 
comparison  of  several  of  these  prediction  programs  will  be  a part  of 
this  report.  The  differences  in  prediction  techniques  between  competi- 
tors would  create  a difference  in  predicted  noise  even  for  identical 
designs.  It  is  important  that  competitive  designs  be  evaluated  after 
being  put  through  the  same  acoustic  prediction  procedure. 


A second  reason  that  attention  to  Air  Force  aircraft  acoustics 
should  be  focused  in  the  Air  Force  is  that  a clear  difference  exists 
between  the  Air  Force  aircraft  mission  and  the  civilian  commercial 
aircraft  mission.  This  difference  may  make  a different  set  of  design 
parameters  feasible  for  the  two  types  of  aircraft.  That  is,  the  Air 
Force  aircraft  may  require  fans  producing  higher  frequency  noise  than 
their  commercial  counterparts  or  different  bypass  ratios.  Air  Force 
aircraft  may  also  require  more  durable  linings  or  different  maintenance 
schedules.  A prediction  program  developed  primarily  for  commercial 


L . 


i 


aircraft  and  checked  out  over  a range  of  commercially  feasible  parameters 
might  be  of  doubtful  validity  over  a different  range  of  parameters  asso- 
ciated with  designs  meeting  the  Air  Force  mission.  For  this  reason  too, 
the  Air  Force  needs  its  own  prediction  procedure,  checked  out  over  a 
range  of  parameters  compatible  vdth  the  Air  Force  mission. 

A third  reason  for  focusing  Air  Force  attention  on  duct  acoustics 
is  that  the  area  is  rapidly  developing  via  involved  analytical  techniques. 

This  means  that  in  order  to  follow  the  recent  developments,  a familiarity 
with  the  underlying  analytical  background  and  the  physical  principles 
involved  is  virtually  a necessity.  The  familiarity  can  come  only  by  a 
consistent,  long  term  commitment  in  this  area. 

For  these  three  reasons  then,  the  Air  Force  contracted  with  the 
University  of  Dayton  over  the  past  several  years  to  maintain  an  effort  in 
the  field  of  sound  transmission  through  ducts.  The  effort  was  divided 
into  three  phases.  Phase  I consisted  of  the  investigation  of  duct  acou- 
stic theory  and  computational  procedures.  Phase  II  consisted  of 
assisting  AFAPL  in  integrating  Phase  I work  and  programs  from  other 
sources  into  a performance /noise  trade  procedure.  Phase  III  consisted 
of  assisting  AFAPL  in  applying  the  performance /noise  trade  procedure 
to  selected  aircraft. 

1.  PHASE  I - DUCT  ACOUSTIC  RESULTS 

Phase  I results  may  be  summarized  under  several  headings  as 
follows: 

1)  A least  attenuated  mode  program  was  developed  which  iterates 
to  find  the  acoustical  lining  impedance  and  subsequent  design  which  gives 
a maximum  exponential  attenuation  to  the  mode  which  is  attenuated  the 
least.  This  program  handles  any  combination  of  1 ) no  flow,  uniform 
flow,  or  sheared  flow,  with  2)  rectangular,  annular,  or  cylindrical 
ducts,  for  3)  one  or  two  soft  walls.  This  program  was  the  basis  for 
the  study  reported  in  AIAA  paper  number  75-  129  [1]. 

2 

A 


2)  A separate  version  of  the  iterating  program  mentioned  in 
part  (a)  has  been  developed  as  a major  working  tool  for  modal  analysis 
of  constant  cross-section  ducts.  This  version  is  capable  of  finding  all 
the  modes  for  a given  duct  lining  configuration  but  it  is  not  entirely 
automatic  as  is  version  (a).  This  version  was  developed  as  an  aid  to 

a higher  order  angular  mode  study  by  Hoffman  [2].  It  is  designed 
for  interactive  use  from  a time  sharing  terminal.  The  interactive 
procedure  is  somewhat  routine  except  for  initial  guesses  of  modal 
characteristics  and  interpretation  of  the  resultant  modal  characteris- 
tics. Experience  or  guidance  is  necessary  for  successful  use  of  this 
version.  This  version  produces  input  necessary  for  studies  as  reported 
in  reference  3. 

3)  An  analytical  study  was  completed  on  the  orthogonality  of 
the  duct  acoustic  modes  for  no  flow,  uniform  flow,  and  sheared  flow 
which  results  in  isolation  of  the  expansion  coefficients  for  modes  tra- 
veling in  both  directions.  The  uniform  flow  theory  is  implemented  in 
a computer  program  for  sound  propagation  in  a segmented  lining  duct. 
Both  the  uniform  flow  and  the  sheared  flow  isolation  of  the  model 
coefficients  should  have  an  important  impact  on  the  analysis  of  large 
systems  of  ducts  as  might  exist  in  an  idealization  of  a complete  engine 
nacelle  configuration.  This  study  is  introduced  in  reference  3 and 
detailed  in  this  report  for  the  first  time. 

4)  Studies  of  double  layer  linings  and  single  layer  linings  were 
conducted.  These  studies  resulted  in  computer  programs  which  de- 
sign a perforated  plate  lining  to  correspond  to  given  acoustic  impedances. 
Other  versions  of  these  programs  do  the  problem  of  finding  the  acoustic 
impedance  of  a given  perforated  plate  type  liner,  single  or  double 
thickness.  The  double  layer  work  is  contained  in  a report  by  Hoffman  [4], 
His  work  includes  a program  for  obtaining  the  local  optimum  lining 
resistances  and  backing  and  space  depth  to  approximate  simutaneously 
given  acoustic  impedances  at  two  frequencies 
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PHASE  II  - NOISE /PERFORMANCE  RESULTS 


1)  A comparison  of  the  attenuation  predictions  of  several  existing 
prediction  procedures  is  given.  These  procedures  include  two  semi- 
empirical  procedures,  least  attenuated  mode,  plane  wave  techniques, 
finite  difference  on  segmented  lining,  and  equal  energy  in  the  propagating 
modes  procedures.  Two  of  these  are  based  on  Phase  T efforts  and  one  on 
an  associated  effort  conducted  by  AFFDL/FBRD. 

( 

2)  After  several  discussions  with  AFAPL  and  Design  group 
personnel,  a decision  to  develop  a performance /noise  trade  procedure 
based  on  an  existing  noise  prediction  program  BOEING,  was  made. 
BOEING  was  to  be  modified  depending  on  the  results  of  1)  above  to 
reflect  the  work  done  in  Phase  I.  This  program  was  to  be  used  in  con- 
junction with  existing  performance  programs  in  use  by  the  Design  group. 
The  only  missing  link  between  the  two  programs  was  a need  for  friction 
factor  information  about  acoustic  linings  by  the  Design  group. 

3)  A study  of  available  material  concerning  the  surface  roughness 
of  acoustic  lining  materials  was  conducted  and  a computer  program  and 
report [5]  written  to  fulfill  the  need  of  the  Design  group. 

3.  PHASE  III  - VERIFICATION  RESULTS 

The  Advanced  Medium  STOL  Transport  (AMST)  was  selected  for 
the  initial  application  of  a performance /noise  trade  procedure  by  AFAPL, 
Design,  and  University  of  Dayton  personnel.  Several  engines  were 
considered  including  the  CF6-50,  JT8D- 17,  and  JT8D-209  refan. 
Consideration  of  the  baseline  aircraft  and  grown  nacelle  configurations 
will  be  continued  in  a follow-on  effort  under  Contract  F3 36  1 5- 78- C- 20 16. 

[ 

L 


4 


SECTION  II 

LINING  OPTIMIZATION  - LEAST  ATTENUATED  MODE 


Early  in  this  contractual  effort,  emphasis  was  placed  on  obtaining 
an  automated  lining  design  program.  The  effects  of  a sheared  velocity 
profile  on  the  optimum  lining  was  to  be  investigated  in  detail.  As  a 
consequence  of  this  emphasis,  a computer  program  was  developed 
which  required  a minimum  of  input  data  and  which  iterated  as  required 
to  obtain  the  optimum  lining  acoustical  characteristics.  The  lining 
acoustical  characteristics  were  then  converted  into  an  actual  lining 
design  by  the  use  of  information  in  the  available  literature  regarding 
lining  parameters.  A brief  excerpt  from  our  published  work  [1]. 
will  clarify  the  technical  effort  involved  in  this  program.  The  follow- 
ing pertains  to  the  cylindrical  duct  portion  of  the  program. 

The  optimum  duct  wall  problem  was  approached  via  the  governing 
partial  differential  equation  for  sound  propagation  in  a duct  with  a 
constant  thickness  boundary  layer  as  derived  by  Mungur  and  Plumblee  [6]. 
This  partial  differential  is  separated  in  the  three  space  coordinates  and 
time.  The  resultant  ordinary  differential  equations  are  solved  in  time, 
in  the  axial  coordinate,  and  in  one  cross-duct  coordinate  (angular 
variation).  But  in  the  other  cross-duct  coordinate  (radial  variation) 
the  differential  equation  takes  the  form 


d2P  1 

2 + *X  + 
dX 


2k  2 

z dM,  dP  2r,  2 , 2,,  2 m , 

(k-k  M)  dX  * dX  + H ^ 'kz  (1"M  )_2Mk  kz‘..2..2^  P = ° 


H X 


where 

P is  the  complex  fluctuating  pressure  in  the  X direction 
X is  the  normalized  coordinate  across  the  duct  (radial) 
M is  the  local  Mach  number 
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H is  the  duct  height  (radius) 

k is  a constant  proportional  to  frequency 

k is  the  complex  axial  propagation  constant 
z 

m is  the  mode  number  of  the  pressure  fluctuation  in  the  other 
cross-duct  coordinate  (angular) 

with  the  boundary  conditions  involving  the  wall  impedance,  Z,  as 

Z + ikP 

pc  dP 

dX  wall 

where 

p is  the  fluid  density 

c is  the  speed  of  sound 

This  equation  with  its  boundary  conditions  was  solved  as  an  eigen- 
value problem  by  Mungur  and  Plumblee  and  by  Eversman  [?].  The 
present  study  uses  an  approach  similar  to  that  developed  by  Cr»mer  [8] 
for  the  no  flow  case.  Values  of  the  imaginary  part  of  k , the  propagation 
constant,  are  proportional  to  the  attenuation  of  the  sound  pressure  down 
the  duct.  Picking  an  imaginary  part  of  k^  and  varying  the  real  part 
using  a numerical  integration  across  the  duct  produces  curves  of  con- 
stant attenuation  in  the  wall  impedance  plane. 

The  curves  form  loops  which  reduce  to  a point  as  the  attenuation 
is  increased  as  shown  by  Cremer.  A computerized  procedure  to  home 
in  on  this  point  was  developed  to  obtain  the  lining  where  the  "least 
attenuated  mode  1 has  the  highest  attenuation.  This  point  corresponds 
to  the  lining  where  the  first  and  second  radial  modes  are  the  same,  a 
double  mode  point,  and  the  lining  parameters  here  define  the  "optimum" 
lining. 

The  boundary  layer  profile  enters  into  the  calculation  in  both  the 
dM/dX  term  and  the  M terms  which  are  functions  of  X.  Because  the 
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steep  velocity  gradient  at  the  wall  causes  the  term  involving  M'  to  domi- 


nate at  the  wall,  the  boundary  layer  model  used  was  the  "law  of  the  wall" 
as  shown,  for  example,  in  Kays'  [9].  In  addition  1/7  power  profiles 
and  1/7  power  profiles  modified  in  the  one  percent  of  the  profile  nearest 
the  wall  were  tested  in  the  differential  equation.  The  "law  of  the  wall" 
profile  was  used  in  the  parameter  studies  illustrated.  The  wall  shear 
was  computed  from  the  Blausius  relationship  for  smooth  walls  as  given 
by  Kays. 

The  automatic  convergence  of  this  program  has  been  verified  over 
the  frequency  range  where  2Hf/c  is  between  0.4  and  6.  0.  Here  f is  the 
frequency.  This  range  is  validated  for  rectangular,  cylindrical,  and 
annular  ducts  with  one  or  two  soft  walls.  It  also  holds  for  various  shear 
layer  thickness  and  mean  flow  Mach  numbers  of  ± 0.  5.  The  program 
and  typical  input  and  results  for  an  annular  duct  are  shown  in  Appendix  B. 
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SECTION  III 

INTERACTIVE  MODAL  ANALYSIS 


The  major  tool  developed  for  a modal  analysis  of  a given  lining  is 
this  interactive  version  of  OPTSHE.  It  is  called  a version  of  OPTSHE 
because  it  uses  the  same  subroutines  to  set  up  the  shear  layer,  to  solve 
the  governing  partial  differential  equations,  and  to  establish  the  governing 
equations.  It's  use  of  these  subroutines,  however,  requires  that  the  pair 
consisting  of  the  modal  attenuation  and  phase  velocity  be  input  rather 
than  output  as  in  the  optimizing  version.  The  flow  configuration  and 
duct  configuration  are  input  exactly  as  in  OPTSHE.  An  input  of  modal 
characteristics  results  in  an  output  of  the  lining  acoustical  properties 
which  would  give  those  characteristics.  An  iteration  procedure  is  then 
utalized  to  permit  the  determination  of  a pair  of  modal  characteristics 
corresponding  to  given  lining  acoustical  properties.  This  procedure  may 
be  repeated  to  give  other  pairs  of  modal  characteristics  for  this  same 
lining.  The  pairs  define  the  various  modes  which  correspond  to  the 
given  lining.  In  this  manner  angular  modes  or  radial  modes  may  be 
established.  The  modal  results  can  be  used  in  an  "equal  energy  in  the 
propagating  modes"  analysis  as  in  Section  VI  of  this  report.  The  modal 
results  can  also  be  used  as  input  to  the  modal  analysis  of  multisectioned 
liners  as  in  Section  IV  of  this  report. 

This  interactive  version  of  OPTSHE  is  listed  in  Appendix  C along 
with  a typical  terminal  run.  Notice  that  the  input  is  requested  by  the 
program  and  that  there  is  an  open  format  for  the  input. 
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SECTION  IV 

ORTHOGONALITY  STUDY  AND  ISOLATION  OF 
MODAL  COEFFICIENTS 


1.  UNIFORM  FLOW 

a.  Introduction  and  Summary 

An  orthogonality  condition,  as  first  given  by  Zorumski  [10], 
is  derived  for  parallel  uniform  flow  acoustic  modes  in  rectangular, 
cylindrical  or  annular  ducts  with  soft  walls.  The  orthogonality  condition 
permits  the  expansion  of  arbitrary  input  pressure  and  velocity  distribu- 
tions in  terms  of  summations  involving  the  duct  modes,  the  mode 
eigenvalues,  and  uniquely  determined  coefficients.  The  orthogonality 
permits  the  coefficient  of,  for  example,  the  first  radial  mode  to  be 
determined  without  the  other  radial  modes  or  their  eigenvalues  being 
known.  The  orthogonality  condition  is  demonstrated  with  example 
problems  in  a cylindrical  duct  and  the  coefficients  examined  near  a 
double  mode  point  for  a plane  wave  input. 

In  Appendix  D.  1 a d'Alembert  type  solution  is  assumed  and 

is  shown  to  be  completely  compatible  with  the  solution  presented  in  this 

* 

section.  The  d'Alembert  solution  may  be  clearer  when  interpreting 
acoustic  waves  to  be  traveling  in  both  directions.  It  is  also  shown  in 
the  appendix  that  isolation  of  the  acoustic  model  coefficients  can  easily 
be  adapted  to  multi- segmented  duct  liner  theory. 

Because  the  radial  eigenvalue  is  contained  in  the  boundary 
condition,  uniform  flow  modes  in  a soft  walled  duct  are  not  orthogonal  in 
the  usual  sense  as  previously  stated  for  example  by  Rice  [11]  for 
cylindrical  ducts  and  Tester  [ 12]  for  rectangular  ducts.  Although  this 
does  not  prevent  an  approximate  expression  of  arbitrary  pressure  and 
velocity  distribution  in  terms  of  an  expansion  involving  a finite  number 
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of  the  duct  modes,  as  done  by  Rice,  it  does  make  the  process  approximate 
and  laborious.  This  paper  shows  that  the  coefficients  may  be  determined 
easily  and  uniquely  using  only  the  mode  and  eigenvalue  whose  coefficient 
is  being  determined.  The  method  was  mentioned  by  Lansing  and  Zorumski 
[ 13  ] and  some  results  for  a plane  wave  can  be  found  there.  The  purpose 
of  this  paper  is  to  present  the  method  for  an  arbitrary  pressure  and 
pressure  gradient  in  a manner  which  can  be  understood  by  practicing 

I 

duct  acoustic  personnel. 

( The  derivation  presented  here  was  suggested  by  Dr.  K.  G.  Guderley 

and  results  in  the  development  of  the  orthogonality  condition  without  the 
use  of  the  terms  "adjoint"  and  "inner  product.  " Dr.  D.  W.  Quinn,  also 
of  Wright- Patterson  Air  Force  Base  AFFDL-FYS,  arrived  at  the  same 
results  using  the  adjoint  differential  equation.  Dr.  Guderley  continued 
to  provide  guidance  at  points  of  difficulty  throughout  the  paper.  This 
investigation  was  carried  out  under  contract  to  the  Air  Force  Aero 
Propulsion  Laboratory  (AFAPL)  at  WPAFB.  The  work  was  done  at  the 
Applied  Mathematics  Group  of  AFFDL  (FBRD)  at  WPAFB  and  at  the 
University  of  Dayton. 

b.  Orthogonality  Condition 

i The  derivation  of  the  orthogonality  condition  will  be  done  in 

detail  for  cylindrical  ducts.  It  extends  easily  to  the  case  of  annular  and 
rectangular  ducts  and  the  results  will  also  be  indicated  for  these  duct 
types. 

(1)  Cylindrical  Ducts 

Starting  with  the  well  known  Bessel's  differential 
equation  which  results  from  a separation  of  variables  approach  to  the 
governing  partial  differential  equations  for  the  sound  propagation  in  a 
cylindrical  duct  with  uniform  flow,  as  shown  for  example  in  Rice  [ 14  ], 
we  can  write 

p(r,  0,  z,  t)  = P exp[i(u)-kzz)  ]cos  m0  ( 1 ) 
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L 


where 


p"  +:P'  + (kR)2 


1 - x 


W)  - 


2MX 


“ -(s)}  ■ 


= 0 


(2) 


and 


P is  the  complex  fluctuating  pressure  variation  with  x;  P = P(x) 
x is  the  normalized  radial  coordinate;  r/R 
R is  the  duct  radius 

M is  the  flow  Mach  number  (constant) 

k is  a constant  proportional  to  frequency;  k = ou/c 

X is  k /k,  the  eigenvalue  for  (2) 
z 

ud  is  the  circular  frequency 
c is  the  speed  of  sound 
m is  the  angular  mode  number 

and  primes  denote  differentiation  with  respect  to  x.  Multiplying  Equation  2 


by  x,  condensing  the  first  two  terms,  and  adding  a subscript  to  P to  denote 


„th 


that  the  j l radial  mode  also  satisfies  Equation  2 with  X = X we  have 


(xPj p'  + (kR)‘ 


-(k-s)2]  * - - 2Mv|  p«  - 0 


(3) 


with  the  boundary  condition  representing  continuity  of  partical  displacement 
at  the  outer  wall  as 


P’(l)  = - ikRA(l  - MXtr 


(4) 


where  A is  the  specific  acoustic  admittance  of  the  outer  wall  and  from 
Eversman's  [ 2 ] work  for  a cylindrical  duct 


P*  (0)  = 0 


(5) 


The  n^  radial  mode  satisfies  the  same  equations  and  boundary  conditions 


<<>'  * {[J  -(ife)2]  * ‘ - 2'V)  P» 


(6) 


P’(l)  = - ikRA(l-MX  ) P 
n n n 


1 1 


(7) 


(8) 


P'  (0)  = 0 
n 


Multiplying  Equation  3 by  Pn  and  integrating  across  the  duct  gives 


J- 

/K  >,p„ 


dx  ♦ <kR)2  f?t  j[l  - j J * 

o 1 


- (1-M2)^X  - 2MXax>  PRdx  = 0 (9) 


Integrating  the  first  term  by  parts 
1 1 1 

f [rf>;pn]  -f 

0 0 0 

and  integrating  again  by  parts  shows 

1 

A«p;)'Pnto-  [*np„  - + / 

J n ^ 


P (xP' )'dx 
y.  n 


0 0 


Substituting  this  into  Equation  9 with  the  boundary  conditions  of  Equations 
4,  5,  7,  and  8 gives 


P„(xP' ) 'dx  + 
Z n 


W.f  j P,  j[l  - (js)2]  * - (1-n2)^*  - 2MXtxj  P„dx 


+ Pfc(l)Pn(l)ikRA(l-MAn)2  - P4(l)Pn(l)ikRA(l  - = 0 

Nor  multiplying  Equation  6 by  P and  integrating  across  the  duct  gives 


A 1 

/ P4(xP;)'dx  + (kR)2  / pt  | 1 - (iTRf)  x - (1  - f'2)XnX  " 2?/vj  pn 
0 0 

Substracting  Equation  12  from  Equation  11  leaves 
1 

j [u  - t^Hx2  - x2,)  * 2»(xn  - »t>]  xrtpndx  ♦ 


dx  = 0 


Vl)Pn(1)kR 


p (1)iA  (1-HX  r - (1-1'X  )•  = 


12 


2 2 

Factoring  (X^  - X^)  into  (X^  - X^)(X n + X^)  and  simplifying  the  boundary 

condition  term  in  a similar  manner  we  find  that 
1 


- V 


A 


+ V - f^V*  + P^(l)Pn(l)-kK  = ° 


f = M^X  + X„)  - 2M 
n i 


If  X i X then  the  quantity  in  the  braces  in  Equation  14  must  be  zero,  or 
n l 


(An  + \'f)J  + Vl)pn(l%  =0  ■,  if  n (15) 

0 

is  our  orthogonality  relationship  for  a cylindrical  duct.  We  will  refer  to 
the  first  term  in  Equation  15  as  the  integral  term  and  the  second  as  the 
boundary  condition  term.  In  examining  orthogonality  in  our  example 
problems  we  will  divide  Equation  15  by  (X  + X - f)  and  will  refer  to  the 
resultant  first  term  as  the  isolated  integral  and  the  resultant  second  term 
as  the  modified  boundary  condition  term. 

(2)  Annular  Ducts  - Orthogonality  Condition 

With  the  boundary  condition  on  the  inner  wall  of  an 
annular  duct  expressed  as 

P'(x.)  = ikRA(l  - KA)2P(x.)  (16) 

we  find  that  the  orthogonality  relationship  for  annular  ducts  is  the  same  as 
for  cylindrical  ducts  except  for  the  boundary  condition  term  which  expands 
to  become 


rf (i)p  (i)  + a 

x n 


where  the  ( ) subscript  refers  to  outer  wall  quantities  and  ( ).  refers  to 

o 1 

quantities  evaluated  at  the  inner  wall  and  the  lower  limit  on  the  integral  is 
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(3) 


Rectangular  Ducts  - Orthogonality  Condition 


Considering  only  the  simplest  case  of  three  walls 
hard  and  one  wall  soft  in  a rectangular  duct  the  separation  of  variables 
solution  of  the  governing  partial  differential  equation  as  shown  by  Rice 
becomes 

p(x,  y,  z,  t)  = P(x)exp[i(wt  - kzz)]  cos 


with 


1 - A2(l  - M2) 


2MA 


_/m2irV 

"\kK  v) 


P = 0 


P"  + (kh)‘ 

P'(0)  = 0 
P(0)  = 1 

P ' (1)  = - ikKA(l  - MA)2P(1) 

where  H is  the  duct  height  and  w is  the  width  between  the  hard  walled 
faces.  Manipulating  the  modal  solutions  of  these  equations  as  before  we  find 


/v„ 


■**  vi)p„(1>3r' 0 • 1 * “ 


(18) 


0 


as  the  orthogonality  relationship  for  a rectangular  duct. 
Coefficient  Isolation 


c. 


(1) 


Cylindrical  Ducts 


The  usefulness  of  the  orthogonality  relationships 
derived  is  dependent  on  whether  or  not  they  can  be  exploited  to  isolate  the 
coefficients  of  expansions  of  arbitrary  initial  conditions  in  terms  of  the 
radial  modes.  We  will  take  as  initial  conditions 


P(x,  z = 0)  = p = “ b P 
£=1  1 1 


(19) 


and 

3P 

3z 


(x,  z = 0)  s h 


(20) 
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where  g and  h are  our  arbitrary  initial  conditions.  This  breaks  with 
tradition  since  the  usual  initial  conditions  are  given  in  terms  of  pressure 
and  axial  velocity  as  used  by,  for  example,  Lansing  and  Zorumski  [4.  3] 
instead  of  pressure  and  axial  pressure  gradient  as  used  here.  The  axial 
momentum  equation,  however,  shows  that  if  the  axial  pressure  gradient 
is  continuous  then  the  axial  velocity  must  also  be  continuous.  For  our 
separation  of  variables  type  solution 


3P 

9z 


iXkP 


we  can  see  from  Equations  19,  20,  and  21  that 


ih  °° 

.z±~  = £ b A P 
K l=1  l l l 


(21) 


(22) 


In  order  to  isolate  the  b 's  we  can  substitute 

l 

Equations  19  and  22  into  Equation  15  by  (a)  multiplying  Equation  19  by 

P (1-M  )X  xdx,  (b)  multiplying  Equation  19  by  P 2Mxdx,  and  (c)  multiplying 
^ l n ^ n 

Equation  22  by  P^l-M  )xdx,  integrating  these  three  from  zero  to  one  and 
adding  to  form  the  integral  term  in  Equation  15  with  its  coefficient  on  the 
right  hand  side  of  the  resultant  equation.  To  this  we  add  the  boundary 
condition  term 

£V„aVi>iD'2<»ri  ♦ V - a<]  (23) 


to  both  sides.  The  right  hand  side  is  then  a summation  of  terms  each  of 
which  corresponds  exactly  to  Equation  15  which  means  that  it  will  be  zero 
except  when  1=  n.  That  is,  the  right  hand  side  will  be 


b 

n 


[2(1  - Ii2)Xn  + 2M] 


1 

0 


and  the  corresponding  left  hand  side  will  be 


(24) 
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[(1  - M2)Xn  + 2M]  J xgPndx  + (1  - M2) /x  ^ Pndx 


+ ErP„<1>',Vi(1)tM\  * - 2"] 


The  summations  in  the  left  hand  side  involving  the  boundary  condition  on  the 
modes  may  be  simplified  since  these  sums  must  be  the  boundary  condition 
on  g and  h from  Equations  19  and  22.  This  permits  the  last  term  in 
Equation  25  to  be  written  as 


Ef  p„  - w)^1)  * p2  — n 


Combining  Equations  24,  25,  and  26  and  solving  for  b^  gives 


[X  - f ) / xPP  c 
n n J n 


, \ iAP  (!)  , o 

ikzJLb.f  xhP„ax  . -J— ■ Mil  * -T-  Ml)] 

0 


^2xn"f2^  y'xJ’n  fbc  + kit  Pn  ^fP 


where 

f i M2A  - 2M 
n n 


f„  i 2M  A - 2V 
2 n 


Annular  Ducts 


Using  Equation  17  in  Equation  15  with  Equations  19 
and  22,  the  expansion  coefficients  for  an  annular  duct  may  be  written  in  the 
same  form  as  Equation  27  except  that  the  boundary  condition  terms  change 


in  both  the  numerator  and  the  denominator.  The  boundary  condition  term 
in  the  numerator  of  Equation  27  becomes 


k*Ro  |AoPn(l)  [fnp(l)  + T1  h(l)]  + AixiPn(xi)  [fnc(xi)  + IT  h<*i> 


(28) 


and  the  boundary  condition  term  in  the  denominator  of  Equation  27  becomes 


if2 

kR“  Vn 

o 


2(1)  + A.x.P  2(x. ) 

l l n l 


(29) 


and  the  lower  limit  on  the  integral  is  for  an  annular  duct. 

(3)  Rectangular  Ducts 

The  the  three  hard  and  one  soft  walled  rectangular 
duct  we  use  Equation  18  with  Equations  19  and  22  to  obtain  exactly  the  same 
results  as  for  the  cylindrical  duct  except  that  the  x is  missing  from  inside 
the  integrals  and  R is  replaced  by  H in  Equation  27. 

d.  Example  Problems 

Five  example  problems  in  cylindrical  ducts  are  presented  to 
illustrate  the  method  and  permit  a directed  discussion  of  the  orthogonality 
conditions.  The  modal  coefficients  b/s,  shown  in  Table  1 are  computed 
for  modes  which  are  normalized  to  a value  of  1 4 Oi  on  the  duct  centerline 
for  Cases  1,  2,  4,  and  5 which  are  axisymmetric  (zero  angular  mode) 
examples.  Case  3,  which  is  for  an  angular  mode  of  three,  has  the  radial 
modes  computed  by  expanding  as  shown  by  Eversman  for  x less  than  .001 
and  then  normalizing  the  maximum  value  of  the  real  part  of  the  resulting 
radial  pressure  distribution  to  1.0.  A plane  wave  of  magnitude  1 * Oi  at 
z = 0 is  the  initial  condition  used  in  all  cases.  This  results  in  g = ih/k  =1.0 
for  g and  h in  Equations  19  and  22.  The  b/s  are  then  computed  from 
Equation  27. 
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Remarks  U/3  opt.  U/3  opt.  Ang  Mode  = 3 near  opt.  very  near 


(1) 


Single  Mode  Points 


Cases  1 anti  - are  examples  of  single  mode  points. 
That  is,  the  wall  admittance  has  been  selected  for  Cases  1 and  2 at  about 
4/3  of  the  "optimum"  admittance.  For  this  purpose  "optimum"  means  the 
admittance  at  which  the  first  and  second  radial  modes  coalesce  for  zero 
angular  mode.  At  4/3  of  this  admittance  the  radial  modes  are  well 
separated  for  our  examples.  The  coefficients  of  these  two  cases  are  typical 
of  single  mode  points.  That  is  the  first  coefficient  is  of  the  same  order  of 
magnitude  as  the  initial  conditions  which  are  of  magnitude  one.  And  the 
higher  order  radial  mode  coefficients  are  of  smaller  magnitude.  These 
first  two  cases  were  chosen  to  give  a spread  in  the  reduced  frequency,  kR. 
This  was  of  interest  particularly  in  examining  the  orthogonality  of  the 
modes  in  each  case  because  the  boundary  condition  terms  of  Equation  15  are 
inversely  proportional  to  kR  and  the  "optimum"  admittance  goes  down  as 
kR  goes  up  giving  a total  effect  about  inversely  proportional  to  kR  squared. 
This  would  mean  that  as  kR  gets  large  the  integral  of  xP  P would  get 
small,  approaching  the  "usual"  orthogonality.  Checking  orthogonality,  the 
integration  of  xP^P^  was  performed  numerically  and  the  modified  boundary 
condition  term  added  to  this.  For  the  accuracy  used  in  these  computations 
the  sum  of  the  integral  plus  the  modified  boundary  condition  term  was  less 
than  0.3%  of  the  integral  for  all  three  combinations  of  X / n in  Case  1. 

Case  2,  where  the  integral  itself  is  much  smaller,  the  sum  of  the  integral 
plus  the  modified  boundary  condition  term  was  less  than  10%  of  the  value 
of  the  integral,  i 4 n. 


Case  3 is  for  an  angular  mode  of  three.  Here, 
with  the  accuracy  used,  the  numerical  integration  plus  the  modified  boundary 
condition  term  was  less  than  4%  of  the  integral,  Z 4 n.  The  coefficient  of 
the  first  mode  for  Case  3 is  significantly  smaller  than  for  Cases  1 and  2. 

This  is  expected  since  the  higher  order  radial  modes  must  build  up  the 
plane  wave  near  the  duct  centerline  where  all  the  modes  start  with  zero 
magnitude  and  zero  slope. 
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(2)  Near  Double  Mode  Points 


Cases  4 and  5 illustrate  the  anticipated  behavior  as 

a double  mode  point  is  approached.  The  first  two  radial  modes  for  Case  4 

have  the  imaginary  parts  of  k /k  the  same  while  the  real  parts  differ  by 

z 

about  ten  percent.  Case  5 is  almost  identical  but  the  real  parts  differ  by 
only  four  percent.  Notice  that  coefficients  of  the  first  two  modes,  b^  and  b^ 
both  get  large  and  are  of  opposite  sign.  The  situation  is  analogous  to 
Tester's  [ 15  ] investigation  of  double  mode  points  in  rectangular  ducts  with 
no  flow.  The  large  coefficients  which  arise  can  be  explained,  intuitively  at 
least,  by  considering  the  function  space  (initial  pressure  and  pressure 
gradient  distribution)  obtained  by  linear  combinations  of  its  basis  functions 
(the  radial  modes)  as  analogous  to  points  in  a two  dimensional  space  (a  plane) 
obtained  by  linear  combinations  of  basis  vectors  (any  two  nonparallel 
vectors  in  the  plane).  The  mode  shapes  of  the  first  two  modes  approaching 
each  other  corresponds  to  two  unit  vectors  in  the  plane  becoming  almost 
parallel.  In  order  to  get  a point  in  the  plane  not  in  the  direction  of  the 
almost  parallel  vectors  by  a linear  combination  of  these  vectors  the  two 
coefficients  of  the  vectors  must  be  very  large  and  of  opposite  sign.  This 
causes  the  difference  between  the  vectors  to  be  amplified  while  the  parallel 
component  of  the  vectors  tends  to  cancel.  This  corresponds  to  the  given 
initial  conditions  which  must  be  formed  by  linear  combination  of  the  radial 
modes.  When  two  modes  become  almost  identical  their  coefficients 
becoming  large  and  of  opposite  sign  corresponds  to  the  difference  between 
the  two  modes  being  amplified  to  create  a portion  of  the  initial  condition 
corresponding  to  the  difference  between  the  two  modes.  The  similarities 
between  the  modes  are  not  similarly  amplified  because  of  the  difference  in 
sign  between  the  coefficients.  Even  as  the  modes  approach  each  other  they 
still  satisfy  the  orthogonality  condition  (Equation  15)  as  was  demonstrated 
numerically  for  Cases  4 and  5. 


As  the  modes  approach  each  other  in  shape  their 
propagation  in  the  z direction  approaches  the  exponential  times  A + Bz 
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(A  and  B constants)  behavior  shown  by  Tester.  This  behavior  can  be  seen 
in  the  present  context  and  notation  by  considering  the  form  of  the  first  two 
terms  in  the  infinite  series  (Equation  19).  The  series  takes  the  form 

P(x,  z)  = b1P1(x)e'lkz1z  + b2P2(x)e'lkz2z  + • • • (30) 

Near  a double  mode  point  P.(x)  is  almost  identical  with  P_(x)  and  k_,  is 

i 2 ^ 1 

almost  equal  to  k Defining  at  any  fixed  value  of  x,  for  example  x = x^, 


P2(x1)  = P1(x1)  + AP 

where  AP  is  a small  difference  and 


k = k + e 
Z2  Z1 


(31) 


(32) 


where  e is  also  small,  permits  the  writing  of  Equation  30  as 
P(xltz)  = b jP^(Xj )e  lkZlZ  + b2[P1(xJ)  + APje’^z^e'152  + .. 


(33) 


The  last  exponential  can  be  expanded  in  the  usual  exponential  series,  the 
higher  order  terms  in  ez  neglected  and  the  APe  product  assumed  negligible 
to  give 

P(x1,  z)  « b1P1(x1)e  z1  + bgP^x^e-11^2  + b2(AP  - P1(x1)iez)e~kz1z+  . . 

(34) 

This  rearranges  to  give  the  form 

P(*!,  z)  = | (b^  + b2)?1(x1)  + “ iP1(x1)e/r]  | eikz1! 


+ . 


(35) 


if  x^  is  chosen  at  the  centerline  in  the  axisymmetric  case  where  both  modes 
are  normalized  to  1.0,  then  AP  is  zero  and 


P(0,  z)  + [(b  + b ) - ib0c7,  ] P.  (0)eikz  Z + . . . 

1 1 


(36) 
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While  both  and  b are  large,  they  are  of  opposite  sign  and  both  the 

b + b constant  term  and  the  ib  e linear  term  coefficient  are  of  reasonable 
1 2 2 

size.  This  is  the  exponential  times  A + Bz  behavior  near  a double  mode 
point  also  shown  by  Tester. 

e.  Discussion 

The  uses  of  an  orthogonality  condition  such  as  that  derived 
here  are  several.  First,  it  can  be  used  to  find  the  amounts  of  the  first  or 
first  few  radial  modes  present  in  an  arbitrary  radial  initial  condition 
without  finding  or  using  the  higher  order  modes.  This  is  an  advantage 
because  often  the  higher  order  modes  are  attenuated  so  rapidly  that  they 
are  of  little  importance  when  studying  the  sound  propagation.  Second,  as 
shown  by  Lansing  and  Zorumski,  orthogonality  can  be  used  in  a mode 
matching  type  of  analysis  at  a discontinuity  in  duct  lining.  Third,  an 
orthogonality  condition  for  the  radial  mode  may  be  combined  with  an 
orthogonal  expansion  in  the  theta  direction  in  a double  expansion  to  give  a 
capability  for  finding  the  amounts  of  the  various  radial  and  angular  modes 
present  in  an  initial  pressure  distribution  which  is  a function  of  both  radial 
and  angular  position. 

Completeness  of  the  radial  eigenfunctions  has  been  assumed. 

f.  Summary 

Expansion  coefficients  have  been  isolated  for  uniform  flow 
with  the  help  of  the  orthogonality  condition  derived.  Example  problems 
have  been  presented  to  illustrate  the  effects  of  being  near  a double  mode 
point. 
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2. 


SHEARED  FLOW 


a.  Introduction 

A method  for  isolating  the  acoustic  modal  coefficients  is 
presented  for  a softwalled  cylindrical  duct  containing  a sheared  parallel 
flow.  The  linear  acoustic  equations  for  the  sheared  parallel  flow  are  cast 
into  the  form  of  a linear  eigenvalue  problem  with  associated  eigenvectors 
and  by  utilizing  the  definition  and  properties  of  the  complex  inner  product 
an  adjoint  eigenvalue  problem  is  formed  so  that  the  usual  definition  of 
orthogonality  exists  between  the  acoustic  modal  vectors  and  the  adjoint 
modal  vectors.  The  modal  coefficients  can  be  isolated  by  using  the 
orthogonality  property.  An  alternate  approximate  technique  using  the 
Galerkin  method  is  also  presented  as  a means  of  isolating  the  sheared  flow 
modal  coefficients. 

The  partial  differential  Equation  37  which  governs  the  linear 
acoustic  wave  notion  for  a sheared  parallel  flow  contained  in  a cylindrical 
duct  (Figure  1)  is  a derived  by  Mungur  and  Plumblee  [ 6 ]. 


-5  4 ^ + 4 - *=  ■ £ -V2-  * o 

c at  az 


where  is  the  Laplacian  operator  in  cylindrical  coordinates 

V2  = “4  +i  r-  + 4 -4  +-4 

v 2 r ar  2 2 2 

ar  r ae  az 

and  the  Mach  number  M(r)  depends  only  on  the  radial  coordinate.  It  can  be 

shown  that,  if  the  fluctuating  quantities  p(r,z,0,t)  and  v(r,  z,  e,t)  are  pro- 
ik(ct-Xz ) 

portional  to  e ' cos  n0,  the  radial  momentum  relationship  becomes 

v (r)  = lULLll (38) 

r pck(l-M(r)X) 

and  the  partial  differential  Equation  37  reduces  to  the  following  ordinary 
differential  equation  and  wall  boundary  condition. 


L 


r 


Uniform  Flow  (M  ) 
o 


Figure  1.  Sheared  Flow  in  a Cylindrical  Duct 
with  Acoustic  Propagation 
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7 + P'<r>  + ^ [d-M(r)M2-X2- -S^]  P,r)=0 

(kr) 


P"(r)  + 

and  the  no  = slip  wall  boundary  condition  is 


(39) 


wall 


wall  P(r) 

= -Ik,,c  pfi 


wall 


(40) 


The  governing  ordinary  differential  equations  for  a uniform 
flow  and  for  a sheared  parallel  flow  are  identical  except  for  the  additional 


term  of 


2XM' 


1 MX  P'  ^'9uati°n  39  for  the  sheared  flow  making  the  uniform 
flow  orthogonality  condition  derived  earlier  in  this  report  not  applicable  to 
the  sheared  flow  case.  Therefore  a different  orthogonality  condition  was 
developed  in  order  to  isolate  the  sheared  flow  modal  coefficients. 

Schauer  and  Hoffman  [ 3 ] presented  in  general  an  adjoint 
method  of  solving  for  the  modal  coefficients  in  a sheared  flow.  This 
method  will  be  presented  in  detail  on  the  following  pages.  Kraft  and  Wells 
[ 16  ] have  used  an  adjoint  function  to  find  modal  coefficients,  but  only  in 
the  case  of  a uniform  flow  where  the  acoustic  modes  are  assumed  to  be 
traveling  in  one  direction.  It  is  anticipated  that  the  sheared  flow  adjoint 
solution  will  converge  to  the  uniform  flow  adjoint  solution  as  the  sheared 
region  of  the  fluid,  the  boundary  layer,  goes  to  zero. 

As  an  alternate  technique  it  is  shown  that  the  Galerkin  method 
as  applied  by  Unruh  and  Eversman  [17  ] and  by  Yurkovich  [18  ] to  an 
attenuating  duct  can  be  extended  so  that  approximate  sheared  flow  modal 
coefficients  can  be  found. 

6.  Analysis  Adjoint  Method 

As  in  uniform  flow  it  is  assumed  that  the  radial  acoustic 
pressure  distribution  g(r)  can  be  expanded  as  a linear  combination  of  the 
modal  pressure  distributions  P^(r) 


g(r)  = »■  b£PJ?(r) 


(41) 
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where  P (r)  satisfies  the  sheared  flow  differential  Equation  39  and  the  wall 
boundary  condition.  Equation  40.  The  radial  distribution  of  the  axial 
pressure  gradient  H(r)  is 


H(r ) = X VA 


(42) 


and  X is  the  axial  eigenvalue  of  Equation  39.  The  radial  acoustic  velocity 
£ 

v(r),  is 


v(r)  = i ty^(r) 


(43) 


where  v (r)  is  the  modal  radial  acoustic  velocity  as  given  by  Equation  38. 
Equations  41,  42,  and  43  can  be  represented  by  one  vector  equation 


g(r) 

. - ) iH(r) 

q(r)  - \~^~ 

v(r) 


= *b£  Y 1 (r) 


(44) 


where  "y  is  defined  by 

Xj 


X P 
£ £ 


(45) 


£ 


It  is  pointed  out  that  the  modal  vector  components  of  y ^(r)  are 
functions  of  the  cross  duct  coordinate,  r. 

A linear  eigenvalue  problem  can  be  formed  by  defining  [a]  to 
be  a matrix  operator  such  that 

[A]  "y  (r)  = X"y(r) 

where  Xis  again  an  axial  eigenvalue  of  Equation  39.  The  form  of  [A]  can  be 
found  by  manipulating  the  sheared  flow  acoustic  differential  Equation  39  and 
the  radial  momentum  Equation  38.  The  differential  Equation  39  is  rearranged 
to  get 

1 


P'  +k2(l-2MX  --24)P! 
kW>  l r UM>-  (kr)2 


X2P 


(46) 
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A complex  inner  product  is  now  defined  over  the  interval  of 


interest  such  that 


<1*  (r),  0 (r)  > 


~c?(r)  ’ 0 (r)  dr 


where  ( ) represents  the  complex  conjugate  and  (*  ) represents  the  vector 

product  in  the  usual  sense.  (See  Nomizu  [ 19  ] for  details  on  inner  product 
spaces. ) The  definition  of  the  adjoint  [A*]  of  the  operator  [A]  is  given  below. 

<[A]T»~z>=  <y‘>  [A*]"z>  (52) 

_ M . . 

and  the  vector  z z2)  ^he  a<^joint  vector. 

1 Z3j 

By  using  the  properties  and  definition  of  the  complex  inner  product  it  can 
be  shown  that  if  X is  an  eigenvalue  of  Equation  53. 

[Aly  = <53) 

X must  then  be  an  eigenvalue  of  adjoint  Equation  54. 

[A*]  z = Tt  (54) 

and  ~z  is  the  adjoint  eigenvector  corresponding  to  X . If  the  inner  product 
9j  ^ w 

< A~y  f~z  > is  formed  and  ~y  is  the  l eigenvector  of  Equation  53  and  z^  is 

a k ~ 

the  kth  adjoint  eigenvector  of  Equation  54,  it  can  be  shown  that 

<*x  " xk)<_V  \>  = 0 and  <v\>  = 0 (55) 

Hence  the  adjoint  eigenvector  is  always  orthogonal  for  L i k to  the  eigen- 
vector of  Equation  53  when  the  eigenvalues  are  different. 

Equation  55  is  the  usual  definition  of  orthogonality.  Assuming 
a modal  expansion  exists,  let  q(r)  be  the  generalized  vector  which  fully 
describes  the  conditions  at  any  plane  in  the  duct  under  consideration. 
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= ib£T£(r)  (56) 

The  components  of  q(r)  are  the  following 

radial  pressure  distribution 

radial  distribution  of  the  axial  pressure  gradient 

radial  acoustic  velocity 

When  the  inner  product  between  the  ktb  adjoint  modal  vector  "z  and 

k 

Equation  56  is  formed,  all  terms  except  one  in  the  summation  are  zero 
from  the  orthogonality  condition.  Equation  56.  Hence, 

< q(r),  z“k(r)>  = < b,«7k»  "^k> 

and  solving  for  bk 

< qU),  "zk  (r)  > 
bk  <7yk(r),  zk(r)> 

Thus  if  the  adjoint  modal  vectors  can  be  generated,  the  sheared  flow  modal 
coefficients,  bk>  can  be  found.  The  eigenvalues  and  eigenvectors  of 
Equation  42  may  be  found  by  solving  the  differential  Equation  39  with  the 
associated  boundary  condition  (4),  thus  giving  P^(r),  \^.  Equation  38  is 
used  to  find  v (r). 

Xj 

c.  Construction  of  Adjoint  Matrix  [A*] 

The  only  restriction  placed  on  [A*]  is  that  it  must  satisfy 

Equation  52. 

< [ A]"y  , ~z  > = <“y.  [A*]"z> 

Let  [o^j]  = [A]  and  [o'.j]  = [A*]  i,  J = 1,2,3  then  Equation  52  becomes 


qj(r)  = g(r ) 


q3(r>  = Vr(r) 


fql(r)l 

■q  (r)  = < q?(r)  \ 

lq3(r)j 
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(58) 


(°ijyj)  zidr  = J yj  (aji  V dr 

o J O 


where  the  definition  of  the  inner  product.  Equation  51,  has  been  used, 
and  the  repeated  index  (unless  the  index  is  underlined)  means  summa- 
tion over  that  index.  Hence 


a.  t7'- 
lj  J i 


<y  01  O 

11  12  13 


o/  a a 
21  22  23 


a a o/ 

31  32  33  J 


yj°jizi  s<yz 


SjC  5^  

a O'  ot  Z , 

11  12  13  1 


a a a 
21  22  23 


'{■  'r-  

a a a 
|_  31  32  33 


The  operator  a\j  on  y^  can  be  transposed  to  by  performing  integra- 
tions by  parts  where  necessary.  Thus 


(0hV  z2dr  = J yl  {ail  zi  dr  + [BC(y/i)]  “ij 


(a  y ) Z.  dr 
' iJ  j i 


1j  («*  Z.)  dr  + [BC|yjZ.» 


Use  Equations  58  and  59  to  get  Equation  60. 


jo  yj(ajiZi  )dr=Jo 


Yj  (or*  Z.)  dr  + [BC(yJZ.)]  0 T 

1J 
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If  the  Boundary  terms  collectively  are  made  to  be  zero  at  the  end- 
points then 


y T (<*.  Z.)  dr  = 
J Ji  1 


(“u  Zi>  dr 


By  letting  aj-  = o.j  Equation  61  is  automatically  satisfied.  The 
construction  of  [A  ] is  complete. 

5jc  — ^ 

The  system  of  equations  represented  by  [A  ] Z(r)  = X Z(r)  can  now  be 
reduced  to  a single  differential  in  Z^r).  Since  X is  known  the  radial 
distribution  of  Z^(r)  can  be  found  using  an  appropriate  numerical 
integration  scheme  or  Runga-Kutta  technique,  and  finally  the  sheared 
flow  modal  coefficients  may  be  isolated. 

d.  Approximate  Method  of  Isolating  the  Modal  Coefficients 

(Galerkin  Method) 

As  in  the  previous  analysis  on  the  adjoint  method  it  is 
assumed  that  the  radial  distribution  of  the  Pressure,  g(r),  and  the 
radial  distribution  of  the  axial  Pressure  graduent,  H(r),  may  be  ex- 
panded in  a series  of  sheared  flow  modes,  P^,  which  satisfy  the 
differential  equation  (3).  Hence 

g(r)  - \hl  P£  = P(r) 


H(r)  = -ik  l \t  bl  PjL 


_ b P(r) 


and  the  differential  operator  L is  defined  below 


L[P]  «p"  + (7  + f^x>  P'  + k2[(l-XM)2  - X2  - 2£__  ] p = 0 (39) 

(kr) 


\ 


The  Garerkin  method  as  applied  by  Unruh  and  Eversman  [17  ] assumes 

that  each  sheared  radial  pressure  distribution,  P,  may  be  expanded  in  a 
series  of  the  no  flow  eigenfunctions  satisfying  the  wall  condition  as 
N 

p = E c R (k  r)  (62) 

, m mn  n 
n=  1 

th 

where  R (k  r)  is  the  n eigenfunction  for  the  no  flow  case  and  m is 
mn  n 

the  angular  mode  number.  Thus  each  sheared  flow  mode,  P,  may  be 

made  up  of  a linear  combination  of  the  no  flow  modes,  R (k  r). 
r mn  n 

After  having  substituted  Equation  62  into  the  differential  Equation  39 
an  error,  e(r),  resulted. 


E C R (k  r)  = e(r) 
, n mn  n 
n=  1 


Equation  63  is  subsequently  multiplied  by  (1-MX)  to  remove  this  term 

from  the  denominator  to  give 
i:  i ' 


(1-MX)  L z C R = (1-MM  e(r) 
' , n mn  | 

n=  1 


Equation  64  is  now  multiplied  by  rRmp  and  integrated  over  the  radius 
of  the  duct  to  give 


rR  , r 

. ° r e 

(1-MM  L c R R rdr  = 
J0  [ n n mnj  mp  JQ 


(1-MX)  c(r)  R rdr  (65) 
mp 


If  the  error  e(r)  is  forced  to  be  orthogonal  to  Rmp  with  weighting 
(l-MX)r  over  the  duct  radius,  then  Equation  65  represents  a set  of 
homogenious  equations  in  and  X.  It  can  be  shown  [ 18  ] that 
Equation  65  can  be  cast  into  the  form  of  a linear  eigenvalue  problem 
such  that 
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f \ 

f \ 

X1 

X1 

[B]  < 

X2 

X2 

X3 

V ) 

X3 

V / 

where 


x = {C  } x = {Xc  } x = {X2C  } 

In  2 n in 


(66) 


and  the  Matrix  B is  composed  of  known  numerical  quantities  which 
come  from  carrying  out  the  integration  of  Equation  65. 


rRo 

( 1 - MX)  L [£  C R ] R rdr  = 0 
J n mn  mp 


Since  Matrix  B is  known,  the  eigenvalues,  X,  and  corresponding 

eigenvectors  can  be  found.  Essentially  Unruh  and  Eversman  [17 

and  Yurkovich  [ 18  ] found  the  sheared  flow  eigenvalues  and  the  no 

flow  modal  coefficients,  C , which  were  used  to  build  up  each  sheared 

n 

flow  modal  pressure  distribution,  P.  Hence 


sheared 


N 

£ 

n=  1 


R 

mn 


(68) 


To  find  approximate  values  of  the  sheared  flow  modal  coefficients, 
b^.  Equation  68  is  substituted  into  the  expressions  for  g(r)  and  H(r). 
Thus 


g(r) 


2N 

£ 

4=1 


/ 


N 

£ 

n=  1 


A 


R 

mn 


(69) 


and 


H(r) 


mn 


(70) 
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are 


It  is  known  that  the  no  flow  modal  pressures  R 
orthogonal  to  each  other  with  weighting  r.  Thus 


mn 


/R  , R A 

\ mn  mJ  f 


r R R 
mn  mJ 


•R 

dr  = 0 for  J 4 n and  ^ ^ 

means  inner  product.  After  forming  the  inner  product  of  Equations 
69  and  70  with  R 
equation  results 

2N 

R. 


69  and  70  with  R and  using  the  no  flow  orthogonality,  the  following 
mJ 


(g(r)'  Rmj) 


2N 

= £ b.  C 

1 


l V'mJ’  "'mj) 


N 


and 
iH(r) 


(7i; 


2N 

, R _\  = ^ X „ b , C T „ / R T>  R 


mJ 


l- 1 


“l  ~J l (RmJ*  Rmj) 


J = 1 . . . N 


Equations  71  represent  a set  of  2N  linear  equations  in  2N  unknowns, 
b . Equations  71  can  be  written  in  compact  matrix  notation  as 


rg.  R 


mjy 


iH  R 
k ’ KmJ, 


J=1  ...  N 


\ 

f \ 

\ 

[A] 

J 

\ 

/ = 

b,  { 

[B] 

.6 

/ 

— 

V > 

J=1  ...  N 

where  [ A]  and  [B]  are  Nx  2N  matrices  with 
RmJ>> 


(72) 


and 


J = 1 . . . N 
1=1...  2N 


[b]  = [*,  r. , . <Tr  r T>  ] 

1 J L l J it  mj  mJ 

The  components  of  [A]  and  [B]  are  known  from  the  previous  solution  of  the 
eigenvalue  problem.  Premultiplying  by  the  inverse  of  the  Matrix  in  Equation 
72  will  then  give  expressions  for  the  sheared  flow  modal  coefficient,  b^. 
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e.  Discussion 

Methods  for  evaluating  the  acoustic  modal  coefficients  have 


been  developed  for  the  case  of  a cylindrical  duct  with  a sheared  mean  flow. 
Extension  of  these  methods  to  include  rectangular  and  annular  ducts  with 
sheared  flow  is  straightforward,  although  generating  the  adjoint  vector  in 
the  adjoint  method  will  become  more  complex  because  of  the  additional 
sheared  flow  region  near  the  second  wall. 

The  adjoint  method  of  evaluating  the  modal  coefficients  is  exact 
and  allows  each  modal  value  to  be  evaluated  separately,  but  it  requires  that 
the  axial  eigenvalues  and  radial  pressure  distributions  for  the  sheared 
flow  to  be  known.  The  Galerkin  Method  gives  approximate  values  for  the 
modal  coefficients  and  requires  only  the  no  flow  modal  pressure  distribu- 
tions as  input,  but,  as  pointed  out  by  Unruh  and  Eversman  [ 17  ] and 
Yurkovich  [ ig  ],  there  are  limitations  on  the  application  of  the  method. 

As  stated,  axial  eigenvalues  are  needed  to  implement  the  exact 
adjoint  method  of  evaluating  the  modal  coefficients.  Usually  each  eigen- 
value is  associated  with  a "forward"  or  a "backward"  traveling  wave  and 
it  is  generally  accepted  that  there  are  an  infinite  number  of  axial  eigen- 
values corresponding  to  each  direction.  This  interpretation  works  out 
well  in  a duct  with  a uniform  flow  where  only  two  arbitrary  conditions 
(P(r),  and  u(r)  or  (r)  ) may  be  specified  across  the  duct.  Each  infinite 
set  of  uniform  flow  eigenvalues,  corresponding  to  either  the  forward  or 

the  backward  direction  may  be  thought  of  as  generating  an  arbitrary  function; 

S P 

hence  P(r)  or  -r — (r),  (u(r)).  Thus,  two  infinite  sets  of  eigenvalues  were 
o z 

necessary.  In  a duct  with  sheared  flow  the  situation  is  a little  different. 
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If  the  duct  has  a uniform  flow  region,  then  only  two  conditions 


BP 


(P(r),  (r)  or  u(r))  may  be  specified  in  that  region;  but  in  the  sheared 

3 z 

flow  region,  since  the  partial  differential  equation  is  third  order  in  the 

axial  direction  (z),  a third  condition  must  be  specified  in  that  region. 

That  third  condition  can  be  v(r)  (transverse  acoustic  velocity),  but  the 

v(r)  must  be  compatible  with  the  wall  boundary  condition  (P/v)  and  the 

uniform  flow  interface  with  the  sheared  flow.  Thus  v(r)  is  arbitrary  in 

the  sheared  flow  region,  but  not  in  the  uniform  flow  region.  Difficulty 

now  arises  in  trying  to  explain  three  arbitrary  functions  (namely  P(r), 

3 P 

(r),  v(r))  with  only  two  infinite  sets  of  eignefunctions  in  the  sheared 

3z 

flow  region.  Further  investigation  into  this  apparent  problem  is  continuing. 


The  eigenvalues  which  were  discarded  and  called  invalid  in  the 
Galerkin  Method  [ 17  ] are  being  looked  at  more  closely  and  the  criteria 
for  calling  these  eigenvalues  invalid  is  being  reviewed.  It  is  apparent 
also  that  the  approximate  method  (Galerkin' s)  of  evaluating  the  modal 
coefficients  is  not  quite  compatible  with  the  adjoint  method  since  the 
former  neglects  the  radial  acoustic  velocity  in  the  sheared  region  entirely. 

It  is  believed  that  this  discrepancy  will  be  resolved  when  the  problem  in 
the  sheared  flow  region  is  solved. 


When  the  modal  coefficients  are  found,  the  conditions  every- 
where in  the  duct  will  be  known.  The  next  logical  step  would  be  to  analyze 
the  effects  of  sheared  flow  on  a multisegmented  liner's  performance  as 
fone  by  Zorumski  [ 10  ] for  a uniform  flow. 

The  only  added  feature  of  the  sheared  flow  would  be  making  the 
radial  acoustic  velocity  in  the  sheared  region  continuous  across  the 
impedance  discontinuity.  Some  preliminary  results  are  that  the  acoustic 
pressure  and  the  radial  acoustic  velocity  must  both  be  zero  at  the  wall  at 
the  discontinuity.  The  actual  effects  of  the  sheared  flow  on  the  liners 
performance  remains  as  a major  area  in  which  work  is  to  be  done. 
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f.  Summary 

Two  methods  are  developed  for  finding  the  sheared  flow 
acoustic  modal  coefficients.  An  exact  method  uses  an  adjoint  solution  to 
isolate  the  coefficients;  an  approximate  technique  makes  use  of  Galerkin's 
Method  in  finding  the  coefficients.  Several  problems  must  be  resolved 
before  either  method  can  be  used  to  analyze  the  performance  of  multi- 
segmented  liners. 


SECTION  V 
LINER  ANALYSIS 

Several  programs  have  been  developed  to  permit  the  design  of 
liners  with  a given  acoustic  impedance  and  to  ascertain  the  acoustic 
impedance  of  liners  of  a given  design.  The  perforated  plate  lining 
programs  LINPART  and  LINFREQ  are  based  on  papers  by  Nelsen,  et  al 
[ 23  ].  These  programs  are  incorporated  as  subroutines  where  needed 
in  our  major  programs.  Listings  of  these  programs  are  in  Appendix  E. 

A design  program  for  two  layer  liners  based  on  a random  walk 
technique  for  finding  local  optimums  is  detailed  in  Hoffman's  [ 4 ] work. 
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SECTION  VI 

COMPARISON  OF  AVAILABLE 
DUCT  ATTENUATION  PREDICTIONS 


A comparison  of  attenuation  prediction  techniques  was  conducted. 
Techniques  compared  were  I)  Least  Attenuated  Mode  attenuation  as  com- 
puted using  OPTSHE,  the  lining  optimization  program  developed  under 
Phase  I of  this  contract,  2)  Plane  Wave  Propagation  from  either  Rice  [ 11  ] 
or  Quinn  [24  ],  with  optimum  uniform  or  optimum  three- section  liners 
respectively,  3)  Equal  Energy  in  each  propagating  mode  with  a uniform 
liner  as  computed  using  the  interactive  version  of  OPTSHE,  and  4)  Two 
semi- emperical  approaches,  DUCTEC,  a Pratt  & Whitney  program,  and 
BOEING,  a Boeing  program  based  on  a report  by  Dunn  and  Peart  [ 25  ]. 

Comparison  of  Peak  Attenuation  per  L/H  versus  Eta  (Rf/c)  is 
shown  in  Figure  2 for  the  no  flow,  L/H  = 2,  cylindrical  duct.  Results 
for  the  finite  difference  method  (3- sectional  liner)  were  direct  output  of 
program  DUCT  with  optimum  impedence  as  input.  DUCTECH  and  Least 
Attenuated  Mode  results  were  also  direct  outputs  of  programs  DUCTECH 
and  OPTSHE. 

Equal  Energy  results  were  indirectly  the  output  of  program  OPTSHE. 
At  a particular  eta,  energy  loss  for  each  propagating  mode  was  deter- 
mined by  OPTSHE  output  using  the  optimum  impedence  for  the  least 
attenuated  mode  as  the  optimum  impedence  for  the  combined  modes. 

The  individual  energies  were  then  summed  and  equalized  over  all  propa- 
gating modes  by  dividing  total  energy  by  the  number  of  propagating 
modes.  The  equalised  enerev  loss  was  then  used  to  calculate  sound 
level  attenuation  per  propagating  mode.  Data  for  the  Equal  Energy 
curve  is  shown  in  Table  G.  1,  Appendix  G. 
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Lining  Attenuation  Spectra  comparisons  for  the  no  flow,  L/H  - 2, 
cylindrical  duct  at  design  Eta's  of  . 8 and  2.  9 are  shown  in  Figure  3a 
and  3b,  respectively.  Wall  designs  for  the  Least  Attenuated  Mode, 

Finite  Difference  (single  liner),  and  Equal  Energy  methods  at  each 
design  Eta  were  performed  through  program  LINPAR  with  corresponding 
optimum  wall  impedences  as  input.  For  frequencies  different  than  the 
design  frequency,  wall  impedences  were  the  output  of  program  LINFREQ 

| 

with  optimum  design  parameters  from  LINPAR  as  input.  Spectra  by  the 
DUCTECH  method  were  output  of  the  DUCTECH  program. 

■ 

Data  and  impedences  for  the  Equal  Energy  method  at  design 
Eta  = .8  are  in  Table  G.  1,  Appendix  G.  OPTSHE  data  can  be  read 
directly  from  this  table. 

The  comparison  of  the  peak  attenuations  in  Figure  3a  shows  some 
interesting  trends.  At  low  frequency  the  analytical  attenuation  peaks 
were  substantially  above  the  empirical  techniques.  This  would  seem  to 
indicate  that,  while  high  attenuations  are  theoretically  possible,  the 
narrow  bandwidth  of  the  analytical  methods  shown  in  the  low  frequency 
half  of  Figure  3 make  the  attenuation  of  an  actual  liner  very  sensitive 
to  any  deviations  from  the  optimum  wall  impedance.  That  is,  practical 
manufacturing  considerations  make  it  difficult  to  attain  the  analytically 
predicted  high  attenuation  at  low  frequencies. 

At  higher  frequencies.  Figure  3 shows  that  the  band  width  of  the 
analytically  predicted  attenuations  is  much  wider  than  it  is  at  low  fre- 
quencies, although  still  not  as  wide  as  the  emperical  band  widths.  This 
widening  of  the  band  width  can  be  interpreted  to  mean  that  the  sensitivity 
of  the  attenuation  to  lining  wall  impedance  is  donw.  Consequently, 
manufacturing  tolerances  would  not  be  expected  to  have  the  devastating 
effects  that  they  had  at  low  frequencies.  This  means  that  the  actual 
linings  should  approach  the  theoretical  attenuation. 
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Figure  3.  Comparison  Lining  Attenuation  Spectra 


Simutaneously  with  the  widening  of  the  band  width  as  the  frequency 
increases  another  phenomena  occurs.  The  number  of  modes  that  propa- 
gate with  only  reasonably  large  attenuation  increases  too.  It  appears 
that  the  slope  of  the  equal  energy  curve  is  much  nearer  to  the  slope  of 
the  empirical  curves  that  the  slope  of  the  single  mode  curves.  This 
would  mean  that,  in  the  ducts  from  which  the  empirical  approaches 
derived  their  data  base,  the  distribution  of  energy  over  the  propagating 
modes  was  probably  fairly  even. 

The  equal  energy  curves  shown  were  based  on  a single  duct  lining. 
A higher  attenuation  might  be  expected  from  an  equal  energy  approach 
with  a multisegment  lining  like  the  three  segment  lining  shown  for  a 
plane  wave  input.  Studies  along  these  lines  are  in  progress. 


SECTION  VII 


ACOUSTIC  LINING  SURFACE  ROUGHNESS 

Evaluation  of  the  effects  of  acoustical  linings  on  aircraft  perfor- 
mance requires  an  accounting  for  the  possible  changes  in  weight,  size 
and  surface  roughnesses  caused  by  the  acoustical  treatment.  Methods 
of  accounting  for  weight  changes  and  size  changes  are  inherent  in  most 
design  procedures.  The  design  procedures,  however,  usually  evaluate 
losses  caused  by  skin  friction  based  on  a smooth  surface  assumption. 
The  results  presented  here  permit  the  smooth  surface  capability  to  be 
extended  to  acoustical  type  rough  surfaces  with  minimum  impact  on  the 
established  design  procedures.  The  extention  to  rough  surfaces  follows 
a form  adapted  from  Pratt  and  Whitney  [ 26  ] using  data  obtained  by 
Boeing  [ 27  ].  A more  complete  description  of  the  development  is  in 
Schauer  [ 5 ]. 

The  correlation  presented  is  a very  simplified  version  of  the 
Boeirr  ' 7 J technique  for  computing  the  effects  of  surface  roughness 

on  ski.,  friction  coefficient.  Its  advantage  is  that  it  does  not  necessarily 
depend  on  other  computer  programs.  That  is,  it  fits  well  with  standard 
design  methods  for  smooth  surfaces.  The  Boeing  data  on  which  the 
correlation  is  based  is  relatively  independent  of  Mach  number  when 
put  into  the  form  (C  - C )/C  . Although  the  data  is  based  on 
average  skin  friction  coefficient  for  an  entire  plate,  it  should  apply 
to  local  values  of  skin  friction  coefficient  as  well.  This  follows  from 
the  usual  relationship  for  turbulent  flow  over  a smooth  flat  plate  where 
the  local  friction  coefficient  is  simply  a constant  times  the  average 
friction  coefficient. 
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SECTION  VIII 


DISCUSSION  AND  RECOMMENDATIONS 

1.  PHASE  I - SOUND  TRANSMISSION  PREDICTION 

Schematically  the  problem  of  sound  transmission  prediction  is  of 
the  form  shown  in  Figure  4 consisting  of  (1)  a definition  of  the  acoustic 
source,  (2)  the  attenuating  effects  of  ducting,  and  (3)  radiation  to  the  far 
field  from  the  ducting  ends.  All  three  of  these  areas  deserve  consideration. 

First  let's  consider  the  acoustic  source.  The  work  of  Lordi  and 
Homicz  [28  ] is  certainly  a step  in  the  right  direction.  They  are  pre- 
dicting analytically  the  radial  distribution  of  pressure  and  axial  velocities 
at  a plane  behind  a fan.  This  is  just  the  information  required  as  input 
to  duct  attenuation  programs.  The  prediction,  however,  involves  an 
assumption  of  the  duct  around  the  fan  and  also  the  duct  extending  from 
the  plane.  Consequently,  there  is  a coupling  of  the  two  problems,  that 
of  predicting  the  input  to  the  duct  and  that  of  designing  the  duct  to  have 
a minimal  output.  From  our  viewpoint,  the  problem  of  how  the  source 
changes  as  the  duct  changes  has  not  been  adequately  specified.  This  is 
perhaps  of  more  importance  than  the  prediction  of  the  initial  conditions 
analytically  because  in  an  actual  design  the  initial  conditions  can  be 
measured  with  a known  ducting  as  reported  by  Kraft  [ 20  ].  An  analy- 
tical, or  empirical,  specification  of  how  the  initial  conditions  change 
with  ducting  is  desirable  since  an  analytical  ducting  design  is  the 
objective  of  sound  transmission  prediction  work.  It  is  recommended 
that  future  work  consider  this  coupling  of  the  initial  conditions  with  the 
duct  design. 


Now  let's  consider  the  problem  of  radiation  from  the  duct  ends, 
leaving  the  duct  attenuation  consideration  until  last.  It  is  not  difficult  to 
use  the  analysis  of  Tyler  and  Sofrin  [29  ] to  find  the  far  field  radiation 
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Far  Field  Radiation 


/ 


Figure  4 


Schematic  of  Aircraft  Noise  Problem 


associated  with  the  pressure  fluctuations  at  the  duct  exit  plane.  The 
only  strong  assumptions  involved  are  neglecting  the  effects  of  the  mean 
flow  velocity  outside  the  exit  on  the  acoustic  propagation,  and  neglecting 
the  forward  quadrants.  With  these  assumptions,  the  analytical  propaga- 
tion from  the  duct  exit  plane  to  the  far  field  is  well  in  hand.  A way 
around  these  assumptions  will  be  discussed  in  connection  with  duct 
attenuation  predictions. 

Finally  let's  consider  the  heart  of  the  problem,  the  attenuation  of 
sound  in  the  duct.  Many  analytical  solutions  to  the  duct  propagation 
problem  are  readily  available.  They  all  involve  assumptions.  From 
our  viewpoint  the  most  noticeable  shortcomings  are,  first,  the  best 
treatment  of  the  exit  plane  reflections  neglects  flow,  and  second,  there 
is  a clear  weakness  in  analyzing  a varable  area  duct  with  a mean  flow. 
That  the  flow  causes  significant  effects  on  the  lining  design  is  evident 
from  the  constant  area  duct  with  flow  results.  An  analytical  and  numeri- 
cal procedure  seems  clear  at  this  time  which  would  eliminate  these 
shortcomings  and  simultaneously  improve  the  exit  radiation  analysis. 
This  procedure  follows  the  work  of  Quinn  [30  ] in  analyzing  variable 
ducts  with  no  flow.  Here  Quinn  maps  conformally  the  varable  area  into 
a rectangular  area,  using  the  mapping  to  change  the  no  flow  acoustic 
equations  in  the  variable  area  coordinates  to  new  equations  in  the 
rectangular  coordinates.  The  new  equations  in  rectangular  coordinates 
in  the  rectangular  region  are  solved  by  finite  difference  procedures. 

A preliminary  study  indicates  it  is  feasible  to  map  the  flow  acoustic 
equations  in  a similar  manner.  Further,  the  study  shows  it  seems 
feasible  to  map  a portion  of  the  region  outside  the  duct  exit  into  the 
rectangular  region  too.  This  eliminates  the  difficulties  at  the  exit  plane 
and  also  incorporates  mean  flow  into  the  radiation  analysis  in  the  icgion 
close  to  the  exit  where  it  is  most  significant.  Our  recommendation, 
then,  is  that  this  promising  approach  be  emphasized  in  future  work. 
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Still  considering  the  attenuation  of  sound  in  a duct,  another  approach 
which  is  promising  is  the  utilization  of  the  sheared  flow  modal  coefficient 
isolation  developed  in  SectionIVinto  an  operating  attenuation  program  in  a 
multisection  duct.  That  is,  the  sheared  flow  orthogonality  now  must  be 
utilized  in  a manner  analogus  to  the  utilization  of  the  uniform  flow 
orthogonality  in  the  multisection  duct  program  CO. 

In  conclusion,  the  present  status  of  Phase  I - Sound  Transmission 
Prediction  is  adequate  to  support  the  initial  version  of  Phases  II  and  III  - 
Development  and  Implimentation  of  a Performance /Noise  Trade  Metho- 
dology. Improvement  in  prediction  is  possible  and  desirable  to  permit 
improvement  in  the  initial  methodology. 

2.  PHASE  II  - PERFORMANCE/NOISE  TRADE  METHODOLOGY 


The  general  scheme  developed  by  AFAPL  for  performing  Perfor- 
mance/Noise Trades  seems  to  be  completely  satisfactory  at  this  time. 
The  sound  transmission  work  developed  in  Phase  I has  not  been  inserted 
directly  into  the  noise  analysis  portion  of  the  methodology.  The  compari- 
son studies  of  Section  VI  show  how  the  noise  analysis  would  be  changed 
by  inclusion  of  an  analytical  duct  analysis  instead  of  the  emperical  duct 
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The  Phas*  I technology  developed  here  fits  into  the  Performance/ 
Noise  Methodology  in  two  ways.  First,  it  provides  a possible  correction 
to  the  empirical  noise  analysis.  Second,  and  more  important,  it 
provides  the  design  information  necessary  to  assess  the  pressure 
recovery  effects,  weight  and  size  penalties  associated  with  the  noise 
improvement.  This  degree  of  integration  between  the  Phase  I work  and 
the  Performance/Noise  Trade  Methodology  seems  adequate  at  the 
present  time.  It  is  recommended  that  the  methodology  be  used  in  its 
present  form  to  gain  experience  before  changes  are  incorporated. 
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3. 


PHASE  III  - TRADE  STUDY  VERIFICATION 


The  Performance/Noise  Trade  procedure  is  in  the  process  of  being 
applied  to  the  Air  Force  AMST  by  AFAPL  and  ASD  personnel.  A com- 
parison of  the  predicted  noise  and  performance  with  the  actual  noise  and 
performance  cannot  be  made  at  this  time.  Preparation  for  correction  of 
differences  between  actual  and  predicted  data  is  represented  by  both  the 
capabilities  developed  under  Phase  I and  the  comparisons  of  prediction 
techniques  of  Section  VI.  Progress  in  the  application  of  the  Performance/ 
Noise  Methodology  might  be  facilitated  by  giving  future  contractors  more 
responsibility  in  this  area. 

4.  SUMMARY  OF  RECOMMENDATIONS 

Future  work  might  be  guided  by  the  following  recommendations: 

1)  The  sheared  flow  orthogonality  should  be  developed  from  its 
present  status  as  a theoretical  development  to  an  operational  program. 

2)  The  variable  area  duct  with  flow  analysis  should  receive 
attention  because  it  promises  to  circumvent  several  analytical  difficulties 
in  the  current  prediction  methods. 

3)  The  Performance/Noise  Trade  Methodology  should  be  impli- 
mented  in  its  present  form  before  changes  are  made. 

4)  Future  contractors  might  be  given  more  responsibility  in  the 
application  of  the  Performance/Noise  Trade  Methodology. 
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OU;7  ON_Y  -)  j w A L _ ; Or  T * ) 

iF  ( \ ; • . T i ■ 1. 1 ) r.  I T I ( o , 1 2 j ) aj  U " 

109  FJ-XaT  (lX,*^YLIlO"vi'’lL  wUwl  WlTrt  s ?A  iz  x Oi  OF  *-7,3*  IN  C H Ei * ) 

0 0 Tj  - 
33 

IF  (hSOFT-I)  1;;i  i?d  i I7 

2 fa  ( j , i j o ) rv our , ?: 

lot  Fj'  ur  (*  *F3.s,*  jO/c'*  , Fl2.  s ,*  j.r,CH£S  £3/2  r‘0<  A, 4 *4.0lAk 

X^UCT  AlTrt  UNuY  T;(£  £ S UF  T * ) 

1 > 0 TO  ■. 

27  WFir:  (3,127)  \ OUT  , IT 

lu7  FO<lsT  <♦  * F 7 . * , * DUES  00/ 2 * , F 1 _ . s , 9 INCHES  £0/2  FO*  AN  s^JLA,; 
/CELT  CFH  c30  7 M TN'Jt.  A, 40  OJ'z\  h-i__3  oUFTM 
- ' 0 4 r I 40  £ 

0 rl  I T E (0,103)  rl  , l 3 H 

1 r.  3 FJ<M  AT  (l)(,M  = St::.,,‘  £.4CHEj»/,1A,*j/H  = *,Fo.+*  OE.TA/H*) 

IF  ((  (SOFT,  c.  1.2)  .s\J.  ( £uUC»  .EQ.  1)  ) H=3/2. 
j.F  ( l 4S0FT.  E3.2  ) .u  0 0.  ( i jUCT  . t.Q.  1)  ) jS3=2.*DSH 
C = s0.j2'i.2.';’SjNT(rz1  ) 

N=2. ♦3I*F\£Q/C 
lT  -»  =2 .*H*F\E0/- 
^H.T-  ( *3  , lt>  1 ) r H , £ T a 

1C1  FCK^mT  (1X,F>.3,3H  A„H  NO,  I OX  , Fi  . 6 , 9rt  FKlQ 

IF  ( ( ILiUCf  . i 0.  ) ) . A N J.  ( ( <bJT-3  ) . tO  .c  . ) ) l.0  TO  os 

IF  (I OOCT.EG.-l ) 00  TO  bv 

SFs  = . 2 2/£T  A 

SE-=.2/jO^T  (ETA) 

aEH=.  27/ (ET  A*£T  s ) 

IF  (i_TL.LT. .7)  SEH=  .39/E'A 

IF  ( (F-.OT.O.)  .LOO.  (‘  TA.LT.l.  ))  Cz.a  = ozM- (SEA-SEw  ) *2.  *Fi 
IF  ( (F  -i.lT  . ? . ) , Ahj  . (FT  A . cl  . i . ) ) SLC  = SIA-FM*2.M  sEH-SEA) 

£F  ( i j'JCT)  Es>,o-,56 
bF  c.T1®=£~a 

»=.">- . 1 jMl.-i.i  AvOlJT) 

<rt=rt»  ’Ml 

IF  (nOOFT.LQ.?)  tT  A3=E1  A*  ) / (tOUi-x!) 

z>F.A  = , 22/ETA? 

IF  (Er.'H.jT.l.)  (jj  TO  so 

jE_=  ( .2 2/ SORT  (tTA3)  >*  (-m/*0JT  )**.? 

IF  ( 4iOPT.FQ.24  3 E L - i l *< «JJ<  /**>•*. 2 
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IF  ( r 1 . _ 7 • 3 • ) StM=bu-- (3tH-5_A) 

IF  (r1.j7.j.)  5 o=  SEA  - l Jtn- ye- ) *2  .*Fm 

GO  T u 1 j o 

6u  ;>E:  = . + 7*lTa*M-1.1>) 

IF  (:TA.wT..j>  bE:=.?*&T**M-.26> 

SE_  = . 3-  *c  7 A * * (-  .o+) 

S£H  = .Pj/(tTA*tTa) 

IF  (ET*.  t_T..j)  Sfb=.ob/E7A 
IF  (ETA.LT. .5)  = . 32* E7 A** ( -. 3b) 

IF  ( (Fb.GT.C.)  . «N3  . (rTA.LT.c.  ) ) j£L=iEC- (SEC-3 t-) *2 . *FM 
..F  ( (FM._T.C.)  .Af.J.  (iTA.lT.1.2)  ) j,lJ  = 3 EL- (SH-Se:  > *2.*rb 
IF  (RI.iQ.J.)  y E A — 3 i L 
xF  ( \ I . EG. 0 . ) Go  TO  i 

iEA=j£^-i.-j  3b*  <S£C-3_4  >*  (l.-EXF  (-3. 35b  * <j./\OJT  > ) 

66  SE_  - 3 E o - SEA 
jE. -s:u=sea 

IF  (IJUCT)  61 » o 2 » b 3 
63  7E- E T m * . 15/t  TT 
IF  (ri1)  jT,;-*,/- 
53  Ttb  =.  3r 

IF  (tTA.GT..5)  't.  b = l.F3<LTA',*1.16 
IF  (ITA.G£.2«5)  T;i(=2.*ET-( 

Ftl£  = a J^T  (1.  *-2  • * F ‘■'t 

T E =T  - -t-  (TEH-TE  > « F I E 

TEr  = TE‘‘.0y*  (l.-EX5  (-ET  A*lT^)  l 

IF  (ETT.oT.t.)  TcF  = ftF* (!.♦.. 2* < 1. -EXP <- (E7A-4. )* (ETA-3. ))) > 

TE-  = TE*  (l.l«-E*y(-ETA*ETA)) 

IF  (ETA.GT.u.)  TE. =!£.*  (1. -.37*  (l  ,-£a=  ( - (ETA-4 . ) * (ETA-3. )» ) ) 
lF  (ETA.lT.1.)  Tc_  = 1.47*TE/£i A 
0 U 7 3 5 

bL  F *! l = 1 . - 2 . * F li 

iF  (-Ih.lI.2.)  FKE  = FWE  * FiiE 
TEH=. J3*£TA**1. 3 

IF  (ETA.  GT. 1.3)  TEH=.s*£TA**x.Jbb 
TtCr.  '-»o*ET«**1.  3 

IF  ((IjJGT.EQ.u) .ANJ.(T  EC. .T.TEHM  TcT=7Eo+(<I/=3JT)*(TEm-TEw) 
TE=  7_  (*■  (TE-T:  ri)  *F^E 
T £ - = T t.*  .95*  (l.-tX=(-Ti*Tt)) 

IF  ( I 3UCT.  Ell.i  . AnJ  . ETA  . uT  .1  .j)  TEF=.5»TEF 

_F  ( ( I OUgT.E J. A)  .*N3. (ETa.LT . .7 > .INJ.  (F-.GT..1) > TtF=.2*7£F 
.■£-  = !£*  (1.1«-EX°(-£7A*ETA)) 

IF  (-TA.Lr.l.)  7 E_  =l.i*7*Tt/’iTA 
oU  T 3 j 5 

IF  <\I.3T. (R3UT/2.  ) > G3  TO  „3 

67  TE=ETA 

IF  (ETA.tT.2.5)  TE = • 7 3 * E T a * * I . j 5 
IF  (_T«.LT.l.)  Tt=.73»£TL 
IF  (lT^.lT..6)  T £=  , * 3 
IF  (FV)  b 3 » 5 4 » 5 L 
61  IF  ( t(  >oFT  . EQ  . 1 ) G3  TO  z.7 
T E-  E T AP 

IF  ( £ T A 3 . L T . 2 . 5 ) T E = . 7 3*  E T A-3 * * 1 . 35 
IF  (cTAa.LT.i.)  7t  = . 7 3 * E7  A 13 
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c 


74 


73 


5s 


iF  (ETAP.LT..5)  TE=.hj 
IF  CFM.GE.O.)  7-, 73 
F'1c  = l.-2.*FM 
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IF  (ETAP.LT.2.)  FME=FKE*Frt£ 

T £ H = .5'i*ZTAP**  1 .3 

IF  (ETmP.GT.I.S.)  TtH=.5*LTA3,*l.Cor 
7E3  = .4j-£TAP'*l  .3 

IF  (TdC.LT.TEi)  IEH=TEC*  (*!/*. >1)  M i EH-TEC) 

T E=  T E U (TE-TEH*  *F>1E 

TEr  = r E*  .95*  (1.-FX-*  <-T£*Tl)  > 

IF  (ETAO.LT ..7 .ANJ.P-.GT  ..1)  T^F -,2*TEF 
T E _ = T E*  ( 1. 1 *■  EX  P (-T  E*i  E)  ) 

IF  (ETAP.LT.l.)  TEL=I.47»TE/iTtF 
GO  TO  53 
T EA  = • 3 ~j 


IF  (ETAP.GT..E)  T E H = 1 . 7 s*  ET  a - ♦ * 1 . 1 
IF  (ETA9,  GT.2.5)  TLH=2.*lTAF 
FMi  =S  l-.T(l.«-?.*c7i) 

TE=TEH-(TEH-1E) *F-E 
U= (TE +ETAP) /2. 

T£- =T  E*  .96*  (1  .-EX-*  (-’J*  J)  ) 

iF  (ETAO.GT.4.J  TiF=iEeMl.«-.02Ml.-tXr'<-<ZM.'-,.)*<ETAD-J.>>3  ) 
Tt.=TE* (l.lfEXP ( -7  £ 4 r E J ) 

IF  (ETAO.GT  7 I L = ’E.4  U,-.  C7  ♦ 1 1 ,-c  Xf-  ( - (c.TAO-4.  ) MET  A=>- J.  ) ) ) ! 

Ir  ( e T A 3 . L T .1.)  TEL  =1.  . 7*  I £7.  TAP 
CONTI NUI 


G1VI0E  Trie  iNTE-vVxe  IN  AfiLr  15  TI-Fi 
AN  J Cr(t  C<  cACH  Tl'.t  Fix  4 LOOP  *0  = miJH  HA_r  TO  KEEP 


IF  ( ( ■-  '1 , EG  • u ) • J >. . ( OS’-! . EG . « . 3 > uO  7 0 31 

HU  =1 2 7 j*.  ^ a iO s*  TEtV-?.:>ocC-7M  ErtP-TE-1>)  / (<iO*l.  Ej) 
NU  IS  KINETIC  V ICG  BIT  T . N JUAfi  OF  1 NC NeS ♦* 2 7 bEC 

'Jb  = b j <7  <.L223*C*u*rN*r'1*<  ( C*  ■*  _>j  i?*i  ' ujH‘  H/UJ)  r * {-.23})  ) 
mL=5. *NJ7(H*Jb) 

3L=S. ‘Aw 
51  CONTI N Jt 
bKI3  = :. 

NC<=  J 

no.  =: 

NCO 

NLOOr  = j 

NC JS3=0 
1ST  =3 
JJJ=1 J 

IF  ( 1 JuCT. E0.~1 « A N0.N5 jF T. EG. 2)  JJJ=d 
JO  Is  J=1,JJJ 
jF= ( sE.+oEJ) 72. 

18  NP-23 

IF  ( J CK.EQ.  G .A  4 J.  NC  J33  . EG.  J)  NP  = -.I 

iF  ( .IT.oE.2)  'Ir-BC 

IF  (_Tf.el.2.)  Nr =23 

TF  ( '1 C JSP  . uT  . 1 u ) 30  7J  3*r 

OE-N=  ( ALJG(  T-.L  ) - A.  Go  ( F EF)  J /(  i J-  1 ) 

00  23  1=1, NP 

T£=EXP(ieOGCE-i  Mi -I)  *OlLN) 


.J 


U OL 


■F 


j 


XW1  J 

2 A - L S H t S E T ( St  9 T t , t X S y I '*1 ) 
x ( 1 ) = ?3 
Y(I)  = Xj 
20  COMTI 4UE 

CAl.  '_OjP3  (X,Y,W3,L3QP,I,i'l) 

IFdNTK^.E'i.l)  T £ (o,102) 

102  FuvWAT  (/1GH  <«  gI4*,k  STAP)) 

IFF  I 4 T .<r> . EQ  . 1 > ^fvt  T £ (6, v01>  (X  ( 1 W » , Y ( In)  , IW=1,  NP) 

901  FORMAT  ( 3<  1X,5><  ♦ («F  7.  ♦ ,*  ,*F;  . -,  * ) * 3X) /)  ) 

IF(  IMT  <r».EU.l)  WHITE  (b,S02)  Sl  , bEL  , bE  U , T EF  , \ E L , t JOP 
i>02  FOvMir  (1X,*5E,  SE.  , it  J , TEF  ,riL,  L JO'*vr12.6,n  3 ) 

IF  (L  JO°. it. 1)  13,  1-, 

13  Ni_  J OF'  = NLOOPH 
nc<  = w 2<+i 

if  (j<;p.n.i.i  G3  n 19 

jt. A - SL  _ 

19  SKIP: 3 . 
jE.=3E 

a=r  e- 

IF  (W.lT.nJP)  TEL  = i XP  (AwOG(3)  f (M  + l)  * JuuN) 

IF  (i..G  E.3>  TEF=tXp  (A^Db(9)*l  1-2)  *DtLM) 

IF  ( MI  1 .EQ.  1)  GO  I 0 .'5 
IF  (\2u  4. Ei.  INIT-i)  > 1 2 u ),  = 1 

IF  (NL01P.tQ.2)  N3  G ■')=')  IT 

IF  (.41  i .GE.2.£‘9J.'IC<..-3.c.Ai'<J.ItGN.t_j.„)  GO  FO  7 ~j 
IF  ( :•/ 1 T , GE  « 2 • A i Y « <•  E Q*  - ) GO  TC  7b 

IF  (OOL*EO«G«ANu»'4CJ'i:>»EG.o.tNj.NlT.Gi  • j ) GEJ=1.32*3l 
IF  (MOL  .EC4.L  . AN  0 . 9 2 Ob?  . tit.  C . ■*  :xo  .Nil  .LI.  3 ) bEJ=l.l*SS 
IF  < ')  J,_  .tQ.  2 ,t  *0.  Nl  JJf- . GT  . 3)  St  U- ( 1 . ♦ . j 3*  WL  J 2 P ) * j E 
IF  (.«lL03°-2)  lb,Jj,17 

IF  WE  wGJP  TWICE  0Ht2<  93,  iF  _GGF  AuCIh  cnuNbE  03 
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If  VL-StJ 
GO  T3  13 

17  3EJ=S20*«l*(iE'J-GE-A) 

IF  (,J_wi  3P.GT  .b)  oELA^.O^SE-t 
S<i a=  1 . 
j r = si u 

GO  T J l i 
1>-  40.  = 'J  Jt  +1 

I ST  = I JTH 
WL  JOP  = U 
IF  ( m 2 < ) 49,-9,37 

L9  IFi  ( £ T k/NSJFT  ) .LT  .2..j\»i»1T  > . 


Y v 


2) 


"»  O y 5 w> 


) *s: a 
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jEJ-S  CI^-  DaV  1.5J:  41 1 ) ) 

u.-.gs/  t.;  + Min  > 

TF(NC.G£.3>  itU  = btoL't'(NC-l) 
iF{  40  . GE.  X)  SFc  = i£(.".v<NC-l> 

IF  (MC.Sf  .20  GC  TO  34 
GO  TO  13 
4t  IU3  = 1 

x F ( i J J *,  T .EQ.-I.mUJ.^OUO.xT,?)  ( l i A / jO”  i ) .l(  « « 3 ? ) 

IF(IjJ^T. EQ.l. A M£.  cTm.LT  .1.:  ) I 0 -'  = 0 

iF(  I j J „ T . EO.-I.mNj  . M 0 _ ( JIT, 2)  ,cQ.. .A. nT.c-'xiP. -!..■»)  I J P = i 
IF  ( x J 3 • £ Q . 1 ) GAcL  1 Jx  - n,X,JD,IrJir,'»0u,IM,<'1) 

I F(  I J 3 . £0 . 0 ) Ua  I J'  3 ( A,  Y,  ,r,  I-GJir1,  4ux , IT,  < 4 > 

IF  (IGtJjr.tQ.l)  3 J Tj  -.t 
S ( l 3 T ) =3l 

iF  (I  I.E'l.l.J'.l'I.El.'JF')  4 = '( J L - 1 

1 F f I J 3 . £;j.  C . 5 N j . X-*  . y . ( 1 .c  ♦ 1 v ) ) GO  TO  36 

IF  ( 14  3 J S P • G E • 1 • J u • N I . • bE  • 2 1 jT  To  -.7 
GO  T 3 3 j 

47  IF  (iT.EQ.l)  Tcr  = £Xr>il_OoiTcr)-I  . * GEl  •< ) 

IF  (ii, £Q.l ) GO  T J 1 > 

IF  (I1.6Q.NF)  T £^=E<r  ( ALOG(i  £D  «-c  .»  Jx.N) 

IF  (*  3.£Q.N?)  GO  TO  IT 
IF  (MCJjP.EG.I  ) GO  TO  3 o 
GO  TO  „ 

46  N0_1=IST-1 

iF  (0.31.3(11)  GO  Tj  39 

sE_-3E 

SE J=S (l) 

IF  l N JL-2)  *i,-i,42 

42  JO  ♦ „ m = 2*i40_M 

4 C IF  (S  ( i ) .L  T .xL  J . A '40.x  ( v.  I .GT.  H ..  ) GEJ=S(M) 

GO  T0  -1 
39  GEJ-5E 

i£_  = j l 1> 

IF  (fjOL-2)  41  ,-i , ,3 

43  00  3j  M=2,NJ_M 

5 C IF  (3  (u)  ,G1  .SEL  •A-Jo.S('l)  .lT.  jFJ)  sEl=.»(m) 

41  jo.=: 

1ST  sj 

iF  (^JU>T.FQ.  — l.AJO.zTA.Wi..^.Li\j.rF*.»i«— .1)  j J iO  72 
IF  (NlT.oT  .G.ANO.E  i A.-T  ) ,3  TO  72 
IF  (i4CUoP.r4E.li)  GO  TO  7l 
IF  (Nl  1 .0E. 2)  GO  TO  " L 

72  IF  (IM.LT. (n  = -3) > T £ _ = l Xr  ( AL j G ( T _ M ♦ ( I r* 3 ) * J£ . 4 ) 

IF  (i.T.GT.3)  T l F -E  a.3  ( ft  „ Oo  ( T £•  ) ♦ ( x .1-  3)  ’ 0 E uN) 

71  r4CJoF  = N;UoPH 
SE- ( S£L  *5EJ ) /?. 

IF  ( a i(T  i\P  . EG  . 1 ) WrvITE  (o.xuh)  x L US- , S x. , x E J 
6 C 4 F0<  -*A  T t IX  , *IC  JSF,  Al  , StU*  xl- , 2Flo  . o) 

IF  (rlCUoP.ECl.l.  4ixO  . 'll  T .60.  1)  GO  TO  75 
IF  (MCU3P.EQ.2.HNJ .MIT.uL.2)  GO  7J  7v 
IF(MC  JS°.Eo.-*)  GO  i 0 75 
GO  TJ  l*j 

44  IF  (NOl.GT.I)  GO  TO  aj 
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SE- 

GEL 

* 

IF 

( ( TF_-TEF> 

.lT  ..  G)l) 

GO  TO 

7; 

SO 

T J is 

SL- 

3  E J 

IP 

( ( TE.-TtF) 

• t.TaawTl) 

GO  *0 

1 Is 

lF 

( N J l • EQ. 2) 

GO  TO  I1* 

IF 

(NUL.E3.3) 

St  - J tL— l 

s£l-Sl_ 

) / ? 

lF 

( 'i  ) L • L 3 • -* ) 

s E = s E J* ( 

j E 0 - S E . 

IF 

( N J L a E a . 5 ) 

SC  = 3El'*’l 

lL-brU 

lF 

(NIL  .lQ.J 

3E=3lJ+3 

EU-St. 

IF 

( N J l • A ' ■ 7 ) 

G 0 T 0 ’4 

jQ  d is 
IE  „ 0 , T I f J U E 
7 E TE-  ( iCF«-TEL)  /?. 
iwi  1 1- 1 NT  <3 

GA_w  SHlSET  (">E,i£,<s,XS»T*0 
iw  < = ; 

J.PC1J0  J(“T  I"1”  .St_»  '!“£)  .Jn,.i.sT\F.EQ«l)  I 'l\:  1 

I F(  4s  .IF  T • £4  . 1 • J iv.  [ 0 J-  1 . iO  • 1)  W\I7£  (o»3'3) 

3 C 3 F0<14T  (/////•  OFTilJf  W(  Lu  .iMN/l 

1F(  NS  JFT  . GT  . 1.  t Nl..  a JJG  T.  f.E.  1 . ANu.NOD  ( ,i.T  ,2)  . £Q.  J . AN  J.  I W-i.E3 . 1 > 

♦WRITE  ( o , 3 C 5 ) 

3Pc  F J VIA T (/////•  UF?1-|J-  INNEk  WALl*) 


I F l N j 3 r'  T . G T al.4NL.il  T J 3 T • fit.l.ASF.flGJ(NlT  ,2)  • ^ • ' • h^Di  it*  <■!  ]•  1 ! 
♦ NRi  T £ (3,339) 

3 C 9 FO'INAT  (/////»  uPri'U-  OuTln  wall*) 

IF(  Hn.EQ.1)  UNITE  (•.,  3Dh) 

3 0-  FD-HAV  ( / oG  H sTGIa  LTA  TAJ  ETA  O-'T  R STAR 

XX  STAN) 

I F ( I N ’ , £3 . 1 ) W "l  i T - ( l i 3 0 *-> ) i , i £ i < 3 , X 3 

3 G 5 FLNUT  ( tF  1 B . n ) 

•JSl=(  SF.U-oED  /2. 

3T;=(TEL-TEF)/2. 

IF ( I* \ a E J • i ) wxlll  ( ->  , S U L ) J S E , U I L 
JCo  F 0?  94  T (*  ♦ OR-*  r •)  . o,  * *3<-»F8.:>/) 

IF  (I  J ) ST  .EQ.-l  . A n|  0 • i*s  OF  T . tl . 2)  23,24 

23  ,aT=NIT*l 

IF  ( i i T t C 0 . 1 ) G L f 0 2 j 
s£  A = j£c=SEU  = 3£ 

IF  (WI T .GE.2.4.N j.  40 sSP  .wt.l»  Gs  TO  S3 
IF  (NIT.oF.2)  GO  TO  '<5 
TEr=r  E*.9o* (l.-EX3 (-TL’Tfc) ) 

TE.=TE*  ( 1.  j4fEX(--(-T:*Tt)  ) 
oO  T J 3 

8 3 T£r  = T £ r ■ . 1* < T E - T £ - ) 

IF  ((  f E-TEF)  , L 1 . . J l -»)  I £F  =TE>  . l 0*, 

7E.  = r El*. 1*  < 1 1 L - 7 £ ) 

IF  (iTFu-TDaLi  . • 3 j 4 ) Tc.l  = T_*.uOh 
oO  ID  ,<h 

85  T£F  = TLF-.5* ( 1 l - T LF  > 

SPJ=.  ?/  ( 1.  *2  ,*<4IT> 

IF  ( ( TE-TEF)  .LT  .3=>u>  TEF=TE-;PD 
T£.  = r £l»  .5*  ( TEl -Ti  ) 

IF  ( ( TEL-TE)  .Li  .S3  J)  TEl=TE*5PD 


5B 


OPT 
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FROM  COPY  FURNISHED  TODDC 

IF  (NIT.GT. (NITM-2) ) 2h,s 1 
28  £T*°=ET  AMROJT-r.M)  / H 
SEA  = . 2 2/ ET  A P 

iE-= ( . 22/SQRT (ETAP) > * (Kl/KJUi  ) **  .2 
IF  (MiOFT.EQ.2)  SZL=SEl* (RJJT /RM> *♦ . 2 
SEM  = . 2?/(ETAP*ETAP) 

IF  (lTAO.LT. .7)  lEH  = . 39/lTAP 
IF  (FM.lT.3.)  SEA=j£A-(SEn-iEA)  * 2 . * EM 
IF  (F1.3T.3.)  3fcM=6EA- (SEA-jiL) *2. *Fh 
SECS. *7* cTAF** ( -1. Ip) 

IF  (ETA5.LT..6)  jEC  = .7*ETAP*M-.2p) 

SE.  = . 3s*ETAP»* (-.34) 

S£H=. 33/ (ET  A3>lTA3) 

IF  (ETAP.LT ..8)  S£H=. ob/tTA^ 

IF(E74°.Lr..b)  SEH=.32*ETmP* ‘ (-.36) 

IF  (-d.oT.C..ANiJ.£TAr1.LT.2.)  3EC  = 6t-v,-(SrG~5E_)*2.*-M 
IF  (F'1.lT.0..AMu.£TAP.lT.1.2»  j EC  = Sl  C- ( 3 LH-SE  C ) *2  . * F 'I 
SE2  = iE0-l.C3p*(SLD-SEA)*(i.-iXP(-3.  3p*K  Vf'.JJD  ) 

SEA=SEl=SEU=Sl2+SE 
3Eh=SEA* (Rl/ROUT) ♦*  .2 

IF(£TA.LT.1.3)  SEA  = ( 1 . «•  .19*  -../ROUT)  *SEa 

SE=SEL=3EU=SEA 

TE=TE*H/(RM--U> 

TE-'=rt*  .92*  (l.-LXP  (-tf  a)  ) 

TE.  = TEMl.C  jfEXP(-ETA)  ) 

IF  ( I N T RP . EQ  • 1 ) Wi\j!  T £ (6.303) 

GO  TO  91 

2*»  J83H=2w.*PI*3E/ADG(lO.  ) 

J8?I\|  = J iP H/H 

IF  ( ( NjOFT.  EO.  2 ) ,-iN  3.  ( i DUCT  . cT.  1 ) ) u6ih=2.*033H 
("Ki  T £ (6,307)  J jr' . > C i?  IN 

307  FORMAT  (*  A T T E N U A T 1 0 >.  PER  DUCT  HlIoHT  = * , F 5 « 2 » * Jb  P£tx  H-/5  nTTC-iJ 
UATIOh  PF.=>  INCH  = * , F o . 3 » ,F  01  3E.\  INCH*) 

WRITE  (6.311) 

311  FORMAT  (‘  EACH  OF  THE  FOl._uW.l-Nj  t-INi  NGS  IS  DPI1MJM  FOR  THE  jWlN 

XlfJPjr  C ONOI T 1 3 NS . -£>/£*•  Al  TR£  OivF.J  TO  PCRMiT  >*  SELECT  1JN  3Y  HE 

X DESIGNER.*/'/) 

RES=ETA*KS 
Rla  = E T A * XS 

WRITE  (Gj-.11)  FkE  1 1 TE  NP  j t b £ j p j n.ES  j \E  A 
411  FORMAT  ( 7 X . ♦ I NP  UT  I )r'_JJti*/7Xj*Fi\EQ  H Z*  / 7X,  *T  cl? 

♦ <A  Ki.4E*/7X,*?R£SS  = *F5  . 1*  PS.  * / / T x , * J.xi  to.  IZE  J ^I'.i.NG  RESISTANCES 

♦ *Fp../7X,*N0RMAL12EJ  LINING  <EACT.\nCl  =*Fb.»//) 

WRIT!  ( o , 312) 

312  FORMAT  (6X,  * F«CE  SHEtT  CrvlLL  Nu.  JdL.  j*A  c\AuTaJ 

UWA_  CORE  ShCMNG*) 

w P. i T l (6,313) 

313  FORMAT  (6X,  * T Hi.7  < - IN  Sip  INCHED  J=EN  A 

AREA  DEPTH, INCHES*  ) 

DC  30  1=1,7 

CA.u  Cl  (RES,REm,T  £ P.ttSS,F't  C,  Fr-  , i H , „ i LJ  (I)  ,IJJCT,NIT,\I,  wUT,< 
♦,0\, JP) 

W*.I  T ( a , 31 w ) ]H,NuR-.(i),jRL..(I)»uA,3:> 


84  CONTINUE 

IF( MOO (N,2) .Nt. 0)  RSIN=RS 
IFUSIN.lT.O.)  RSIN=.l 
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SSSSS5i»-  - 


3 1C  FORMAT  (1X,F15.**,I15,3F1E.4I 
3C  CONTI NOE 

IF  (NIT.EO. (NlTM-1) > 51,35 
3A  Nki T E ( 5, 5C  3) 

503  FORNAT  <*  THE  ITERATIONS  ON  SIGMA  ElA  VALUES  SHOW  NO  SIGN  OF  CONVE 
EDGING  AFTER  20  ITERATIONS*) 


GO  TO  35 
31  WRITE  ( j , 50  5 ) 

505  FORMAT  (*  XM  IS  GT  -3.  AT  S E=  l SL  U *S  t L ) t 2 . * ) 
35  GO  TO  1 

22  CONTINUE 
END 

SU3.ROUT  INF  S HEi  Li  < 3F  , T E , kS , X S , 1 H) 

CO-MCN  / 3L< 1 7 Fr,ETA,  = l 
COHHON  /3LK A/  SSE,  TTE»uSH,H,  sfl 
COIMUN  / Jl<  3/  iou:t,.<ojt,k,<e 
COIHJN  /3LKC/’  N SO- 7 , X S 1 AkI  , N1 T 
C ON  10  i /f)L<  0/  Hh,DSHA,RM 
CO-110  1 /3LKE/  JS,NU,AL,8L,C 
0 O-l  UN  /3L<F  / VM.RHi 
CUIP^EX  AI ,ZETAS,<2,P, PP, RH5 
REAL  <,NU 

DIMENSION  Y U>  , YL(  •»> 

LOGICAL  HOOF 
EXTERNA'.  OE  i<I  V 
HODE=. FALSE. 

Sa£  = 5 E 
7TE=TE 

AI  = 0MPLX(0.  , 1.) 

N=  ♦ 

ACC=l.E-7 

IF  ( i J UC  T ) 21,22,23 

23  XSiA<T=3. 

SDX-l  . 

GC  TJ  2-* 

22  XST  A\T=  RO'JT/H-1  . 

SO  < = 1 . 

GO  TO  2-* 

21  IF  (HOJCNIT,2>  .EU.  C>  X ST- RT  = * OJ7 / H 
IF  (iiO0(NII  ,2)  .Nt.  u)  GO  TO  <_2 
SOX  =-  1 . 

IF  ( ( NSOCT.Ej.2)  .AN  ).  ( NIT  .E3.  j)  ) 2j,2-, 

2t  = <U’JT-H 
HA=  RN-\I 
XSTlnT  = RM/H  A 
X = XoT  ART 
iOX  = - 1 . 

JSnA  - D .?  rl*  r(  / Hh 


IF  ( < OSH.NE.u.  ) .LNU  . ( r *1  .KE.  „.  ) > MLt  = 5.*No/(H4»US) 
IF  ( ( DSH.NE. u. ) .AN j. (- H.ut.I . ) ) 5uA=5.*ALA 

mm. 


Y (2)  = Y ( i)  -Y (*) = L . 

GO  TO  cU 
2“  X=XSTArT 

IF  ( N I T . G I . t ) GO  TJ  27 

m)=l. 
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Y (d.)- Y ( 3)  =YC4>  = C. 
oO  TO  51 

27  Y (1)  = YL  ( 1> 

Y (2)  = Yl  (2) 

Y (3 ) = Y u (3) 

Y (-,)  = YL  (4) 

GO  T0  31 

ec  iFdw.Ei.2)  wki  re  < 3 , i c u ) 

IOC  FORMAT  (/*  PFESSJRE  PRESS  i\4J 

1 “a^H  X SM  RE  RHS 

2IM  <H3  *) 

101  FORMAT  (IX,  II,  9Fl-r  . 7) 

GX=50X*2.E-L 
J = 1 

L A . _ SET  (N,x,Y,0X,0c.RI\/,Avw,H'jD£,«Gi/,2.E— o) 

IF(  IW  . E 1. 2)  WRITE  Co,  1 C 1 > J , Y , W r , X , j,1,  kHS 
32  CA.u  STEP  <N,X,  Y,JX,DERIV,AC;,MUUc,.G5,2.t-&) 

J = J «•! 

IF  ( J ,GT.  lino  GO  TO  31 

1F(IW.c3.2.AN0.moJ  ( J,2C)  .cO.C)  W>-.ITE  (t>,lDl)  J , Y , \l  rl , X , SM  , RH  o 
IF  ( (1 .-AOStX-XiTART ) ) .GT . A j :>  ( j X) ) uO  TO  62 
3X=3j<* (1 .-*35  < X-XS  U iT ) > 

L A_  _ SET  <N,X,Y,uX,)r.  RiV, AGE, HOOF,. 0b*2»t-o) 

CA.L  STEP  (N,X,Y,JX,DERlV,A^;,'lOOE,.0?,:.E-b) 

IF  (I 3UCT.EQ.-1 .AND.NSOFi ,EO. 2. A O.NiT .EQ. 0)  Y ( 5 ) = Y ( 3 ) » H /rt A 
IF  (I  OUST  .EG. -1  .w  YO.ivsOFl  . E3 . 2 . A.J  J .Ni  T . lQ.  3)  Y ( ) = Y ( 4 ) * H/Hm 
IFUW.E3.2)  WRITE  ( 6 » 1 G 1 ) J , Y , \J*  , X , SM,  RH5 
31  IF(IW.cO.O)  SO  TO  3 

IF  (I  JUST  .NE.-l  .OR.  ^FT.r,E.2)  Go  TO  3 
Yl< 1) =Y (1) 

YL<  2)  = Y (2) 

YL  ( 3)  - Y ( 3 ) 
v i_  ( L ) = y ( u 1 

3 P=:MFuX(Y(l),Y(2)) 

PP=CHJLX(Y(3),Y  <*)  ) 

ZETAS--AI*PI»PXPF 

IF  (JSn.EO.C.)  ZETttS=ZETAS*(i.-FM*<Z/<)**2 

IF  ( (iJJCT.E  J.-l>  . ArC0.  (HOD(NiT,2)  .cO.S)  ) ZETAS=-ZETAS 

RS=RE Al (ZETAa) 

XS^AIHAGlZETAS) 

RETURN 

ENJ 

SU3RJJTINE  OERiV  (N,X,Y,CY> 

COHOM  /3LK 1 / F (■' , E T A, PI 
COIMON  'BLK A/  SE,TE  ,LiSH,H,Si 
COIHQN  /BLK9Y  1 OUS  T , R0  J T , K »<  Z 
CC1HON  /BLKC/  NjOFT  , X5  T A r\T  , Ni  T 
COrtrlJM  / BL<  0/  HA,DSHa,RM 

COfl HO '4  /3l<E/  us,yu, a_,bl,c 

COH ON  /9LKF/  YM,RHS 

coiplex  a,b,rhs ,f, pp,<z 
real  k,nu 

9IMENSX0N  Y ( Y)  , OY  (N) 

AKZ=<*TE/ET A 
3KZ  = -<*  SE/ETA 


31 


32 


12 

17 


22 

21 


IF  ( < I JUCT. E3.- 1> . A NJ. M SOFI  . EJ. 2)  . AND . (NIT .Ej. 3) ) 4<Z=H+4<Z/HA 

(CJJCT.Ea.-D.ANj.  (NS0FT.EC..2)  .AMJ.  (WIT.fa.  j)  ) 3<Z=H+jKZ/H~ 
KZ=3l3wX(AK7,3<Z) 

IF  ( (F-1.E9.C.)  .OS.  (3SH.EQ.G.))  Go  10  12 


SIGN= 1. 


IF  (FM.wT.Q.)  3iGN=-l. 

IF  ( (I.jJCT.Ea.-l)  .A.nJ.  (NSOFi  . £3.2)  .ANJ.  (UIT.E3. 3)  ) 31,32 
03=  X- ( <3TA<T-1.  ) 

IF  (J3.GL.0SHA)  GO  TO  12 


AL«  = j . + 'JU/(riA»  Jo) 


)la=3  . * ala 


YP=03+H4*Ua/NJ 
j=.  *♦:  z * yp 

IF  ( Y J . GY  . 5 ) .-J7*  (*3.:i>«-s.*-LJG(YH)  J 

IF  ( Y 3 . GT  .3Cl)  a=.,C’M:.5*2.j*4L0»(YF)) 

S Q = 1 . / . 4 0 7 1 . i + (LXJ  ( 3i-l.-Q-a,3/2.-G*L‘G/fc.) 
3*1=  SI  G‘J+HA+U;>+  JS/C+  J + .L  0 7*5  3) 


THIS  PAGE  IS  BEST  QUALITY  PRACTICASLX 
from  copy  furnished  to  doc 


E = l.- Jl/OSHA 


IF  C.LT..1)  S.1  = ji*lb.*E 

GO  TO  17 

JA=  4 3 3 (X-XbT4*T  ) 

J3=  ( X 3 T UTU.-<  ) 

IF  (OJ.GT.l.)  0,3  = X-(XS1  AkT-1.  ) 

IF  ((U4.jL.u5h).ANJ.(0B.Lc..0jH))  GO  TO  12 

IF  ((JAilT.JSH)  «Mi)i(N>0rTic3(?)  .^N0«(lJOwiaiIil))  j3  TO  12 
IF  ( ( JA.lT.  OSH)  . AN  J.  ( XSTAr<T.£a.  0 .)  -**N0.  (luUCT  . EJ.  u)  ) GO  TO  12 
YP=  0 A * H*'J S/  N J 
IF  (Jl.J.uA)  YP  = J'3*Y?/JA 


Q=. 4»Z*  Ya 

IF  (Y°.GT.p)  a=.L37«(-3.C5*~.*AL0G(YF) ) 

IF  (XJ.GT.3C)  0=  .40  7<  ( 5.5  + 2. j*ALOG(YP) ) 

sc= i. /. 4 07+ .i+ ( £ x3  u) -i .-u-a+ Q72. -o+o+a/o. > 

SM=S1  iu*H+U3+US7  (G+JU  + .i*i?*sn) 
t= 1. - OA /OSH 

t r { 4 > T ">*<  r - < - n / 

IF  (£.LT..l)  5H=S*1+ lr  . +E 
IF  (J3.lT.JA)  = 

IF  ( ( I jJCT.EQ.-l) . A (j. (HoD( JIT, 2) .ta.O ) ) SM  = -SH 

GO  TO  17 

3^=0. 

CONTI  >•)  J £ 

CA.L  ImGH  (Fi,  <M,0A, 93, AlA, 3. A) 

A = 2+<Z+SM/(K-»M*KZ) 

IF  ( I OUST)  22,22,21 
IF  (X.GT.O.)  A=A  + 1 ./X 

3=H  + H • (<*<-KZ*<Z*(  l.-VH*VM)-2.+  VHmK*KZ) 

IF  ( ( I jUCT.ta.-l) . A NO.  (NjOFT  . tQ. 2)  . AinO.  (HlT.Ea. 0) > 3 =H A* HA +37  ( n + H) 
P =Sl’cX(Y(l> , Y (2)  ) 

PP=CM?LX  (Y(  3)  , Y (4)  ) 

PH5= - A + >P-3+3 
oV( 1)  * Y (3) 

DY( 2) = Y (4) 

J Y ( 3 ) =r,EAL(^H5) 

JY(4) =AIMAG(NHj) 

KEf J«N 
FMO 

SUJ-UJTINE  HASH  ( F N , VI  , Dm  , J3,  AlA,  3lA) 


L. 
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C 01  MO. '4  / BLKA  X SE  ,TE  ,3SH,H,S1  THIS  PAGE  IS  BEST  QUALITY  FRACTICABIjS 

COMMON  / 3 L < B / IOUDT ,RDUT,K,K7  FRwM  COrY  FURNISHED  TO  HOC 

COMMON  X3LKCX  N:aOr  T ,X  :>  1 AkT  , Ni  T 

COMMON  /OLKDX  H A , 3 SHA  , RM 

COMMON  /3L<E/  US  , 4 U , -* . , BL  , C 

REAL  K,NU 

IF  OSH)  1,1,2 

1 \/M=FM 

GO  TO  13 

2 SI  3 N= 1 . 

IF  (FM.LT. 3.)  S1GN=-1. 

IF  ( ( IDUCT.E3.-1) . AND.  (NSGr i .E3.2)  .AN3.  (NIT.Z3. 0)  ) 3 , h 

3 IF  OB.GE.OSHA)  GO  TO  1 
YP= Jd*HA*US/MJ 

IF  (03.uT.8LA)  00  TO  ? 

\/M=SIoN*US*(3.S<-2.5*AL0G(YP))/C 
GO  TO  9 

5 IF  OG.uT.ALA)  GC  TO  3 

NM=5IGN*USM“3.  C *Au0G(Y  = ) )/C 

GO  T 3 9 

E ^M=3I GN*US*Y3/C 
GO  TO  9 

A IF  ((OA.GE.OSD  .«4t!,(jS.oE.0iH)  ) Gw  TO  1 

i.F  l ( NSOFT.  EO. 2)  .ANO.  (DA.LT.  jAI)  .AnO.  ( I JUCT.uO.  1)  ) GO  TO  1 
IF  ( (XSTARI.tQ. 0.)  . AND.  (lOU-i  .td.G) .mXC.  (OA..T .00) ) jJ  TO  1 
Y=  3 A 

IF  (JJ.uT.OA)  Y =D-3 
YP=  Y*  H*  JS/NU 
IF  (Y.lT.BL)  GO  TO  7 
YM=3iGN*US*  (9.5  + 2.  A * A _ 0 G (YD)  ) fZ 
GO  TO  9 

7 IF  (Y .lT.AL)  GO  TO  3 

9M=SIGN*US* (-3.C3+3.*AL0G(Y3) )/C 
GO  TO  9 

6 V.1=SIGl«*U3*  YP/C 
9 L = J 

IF  (I  JUOT  .Ei.-l  .mNU.MSOF  i . EO . 2 . AND  . .4 II  • u G • C ) 11,12 

11  E=1 .- DB/OSHA 

IF  (E.LT..1)  (/M=V1»(1.-1C.*l)*(M“YM) 

GO  TO  13 

12  E=l. -DA/OSH 

IF  (03.lT.3A)  E-l. -J9/3SH 
IF  (2.LT..1)  y/rt  = vM*  ll.-l  l.*£)  * (Fn-tfrt) 

10  RETURN 
END 

->U3ttO  JT  INt  L OOP  3 ( X , i , NP  , M , I „ , NO  > 

DIMENSION  X ( 5 C ) , Y ( 3 j ) , S ( 3 3 J 
J J = N 3 - 1 
DO  1 J=1,JJ 

S(J)  = (Y(Jvl)-Y(J) )/(X(J*l)*X(J)) 

1 CONTINUE 
1=3 

1 1 = N P - 7 
DO  2 1=1,11 
J = I 2 
00  3 N=J,JJ 


THIS  PAGE  IS  BEST  QUALITY  PRACTICABLE 

LOOP=1  FROM  COPY  FURNISHED  TO  DLC 

2  = (Y  (N)-r  fil)  ^Sd  >»A<  I>-SCNI  *X  (N)  >/(StI>-S(N>  ) 

IF  ((  (X(I).LE.2.A^J.X<I*l).ji.Z).Jii.  (Xm.Gt.Z.ANO.XUdJ.LC.Zn 
X.AN0.((X(N).LE.Z.*m.X(N  + i>.SE.Z>.0R.(XlN).3E.Z.AN0.X(N4-l)._£.Z)>> 

X LUOP=l 

ip  uoop.eq.u  go  to  4 

SO  T 3 3 
h .3  - i + 1 

IF  M.GT.l)  GO  TO  5 

IC=I 

i'*C=  N 

no  n 3 

5 IF  ( IfJ-I)  .LI.  (No-IC)  ) b,  3 

6 IC=I 
NC=N 

3 CONTINUE 
2 CONTINUE 

RETURN 

END 

SU3R0UT IME  IMiP  < X , Y , M b , ± C US r> , N , I M , X M) 

DIMENSION  X('IP),Y(N3),Z(2),W(2»  ,MX(5),M'1(5),D(5) 

1 DO  2 J=l,5 
MX(  j)  = -n<  Jt  =i 

2 J(J)=10. 

11  = J J = ~IX  < 1J 
03  = 13  . 

I F ( X ( 2)  .LE.  X(  1)  ) DS  = (X(1)-X(2))**24(Y(1)-Y(2))**2 
DO  5 J=2,NP 

4 I F ( X ( J ) . LT.X(J-l))  Go  10  6 

IF( J.NE.2«AND.MM(JJ)  . E 3 . ( J —1 > ) JJ  = JJ41 
MX( II ) = J 

0(II»=(X(J)-X<J-1) ) **2+(Y(J)-Y(J-l>>*»2 
GO  y:  ^ 

6 IF  (J.NE.2.AND.MX(1I)  .EO.  (J-l>)  Ii  = lIU 
1M<  jJ)  = J 

5 CONTINUE 
NN=  1 

DM!  (4=0(1) 

DO  7 J=  2 i 5 

I F ( D ( J ) »LT  . 011N)  NN  = J 

7 IF  (0<  J)  .LT.G'IIN)  JMiiY=D(J) 

IFi JS . GE.DMIN)  Go  TO  5 
IM=i 

GO  TO  -»J 

8 IM-MX(NN) 

XlisX(lM) 

IF(IP.ED.NP>  GO  TO  -*C 
XL=AlAXl(X(I'i-l),X(Iv,4l)) 

IF  (X.I.lT.O.)  GO  TO  11 
XP1=. 39*XM 

IF  (Xw.GT.O.)  XlA=  X-l-.Cl*  (XM-Xl) 
x F ( X L .LE. 0 . > Xlm-O. 

X*=A1AX1<XPa,XlA) 

GO  TO  12 

11  Xk  1 = 1 . 01*X'1 

XL1=X i-.Ql* (XK-xL) 

XA=AMAX1(XPA,X,.A) 

12  CONTINUE 


I ,‘i! 

W ( l ) = Y ( 11-1 ) 

W(2>= Y (IM> 

YAl  = ATKN(Z, W,2, 1,XA> 

IF (Y41.GT.10Q. > GO  TO  *0 
Z(l)=X(I1«-i) 

H ( 1 ) = Y (I 1*1 ) 

Y31=4T<<N(Z,W,2,1,<A) 

IF  (Y3i.GT.10C. ) GO  TO 
IF  <Y31.GE.YA1)  IJP=1 
IF  (YB1.LT.YA1)  IJP  = 0 
IF  (M.EQ.l)  IU?l=iUP 
IF  (I'JP.NE.IJPl)  ICJS^l 
IF  (IJP.EQ.1JP1)  I CUGP  = 3 
RET JRN 

40  ICJSP=0 
RETURN 
END 

SU3ROJTINE  CJSP  (X , Y, mP, 1CJS- ,N , Il,XM) 

Oil £ NS I ON  X(NP)  , Y(  NP)  , Z (H)  , A (5  0) 

IM=  1 
XM=X (1) 

00  10  J=2,NP 
IF  (X  ( J)  . GT . XM)  I1  = J 

10  IF  (X(J).GT.XM)  XI =X ( J ) 

IF  (X  1.GT.S..0R.i:1.£3.  1 .GR.il.EQ.NP)  30  TO  4J 
XL=A1  AX1(X(1)  , X C N=> » ) 

IF  (XM.lt.O.)  GO  TO  il 
XP4  = . 39*X1 

IF  (XL.GT.u.)  XLA=X1-. 01* (Xl-XL) 

IF  (XL.LE.0.)  XLA=0. 

XArAMAXl(X»H,XLA) 

GO  TO  12 

11  XP4=i.ul*Xi 
XL4=X1-. 01* (XM-Xl) 

XA= A1AX1  (XPA, XL  A) 

12  CONTINJE 
XA  = ,90*XM 
00  2 J J=l,Ih 
Z(IM*1-J)=X(J> 

20  H(I.Hl-J)  =Y  ( J) 

YA1  = aTKnJ(Z,H,IM,1,  X A ) 

IF  (YAl.GT.luC.)  GO  T3  4C 
Nri=NP-I1*l 
30  30  J=  1 » Nri 
Z ( J ) = X ( 1,10-1) 

30  A < J) = Y ( IlfJ-l) 

YBi=A7<N(Z,W,M,l,  XA) 

IF  ( Y 31  .GT . 100. ) G 0 TO  4C 
IF  (Y  3l.GE.YAl)  1J0  = 1 
IF  (r31.LT.YAl)  IJP=L 
IF  (N.EJ.1)  J.LV  1 = I UP 
IF  (I JP.NE.IJ=1)  ICJS^I 
IF  (IJP.EQ.lJPl)  ICJiF=C 


r 


return 

icusp=o 

return 

END 

FUNCTION  ATKN(X,Y, N,K, XB) 
DIMENSION  X <300  ) ,Y  (303  ) 
COMMON  XX1300)  , YY(  3 30) 
Kl=<*  1 

IF(X  ( N) -X  (1) ) 100,10,10 
IF ( X3 -X ( 1) ) 23,20,30 
LL=  3 

GO  TO  230 

I F ( X ( N ) -X  3) 40,40,50 

LL=  N-  < 1 

GO  TO  230 

t-L  = l 

LU=N 

1F( L J-LL-1)  lea, 150, 70 

LI= (LL+LJI/P 

IF(X(lI)-XB)  8j,aO,3C 

LL=LI 

GO  TO  oO 

LU-LI 

GO  TO  63 

IF(Xd-X(l))  120,23,20 
IF(X(N)-X3>  130,43,-,: 

LL=  1 
LU-N 

IFIw.J-lL-1)  180,133,150 
Ll=  (LL+-LUI/2 

IF(X(LI)-X8)  150,173,170 
LU=  LI 
GO  TO  1*0 
LL=Li 
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LL  = Ll  - (<l*l)/2 
IF(u-) 23,200,190 
IF( *K  1-N)  200,23  0 ,*; 

go  210  1=1, K1 
il=Lw ♦! 

XX(  I)  =X  (ID  -X D 
Y Y ( I ) = Y (III 
00  22  3 1 = 1, < 

00  223  J=I, K 
3 = <Xl Jfl) -XX(I) 

IF  (P.EQ.0.)  GO  TO  2,3 

YY<J*l)=<l./3)MYY(I,*XXUU)-YY<Jfl)*XX<I)> 

AT < N =YY  (Kl) 

RETURN 
AT<'4=  399. 

RETURN 

SU1ROJTINE  Cl  ( R,  < , T , =- , F , FM , T H , O , 1DUCT  , NIT  , RI , RO  J T , < , O A , OP) 
-REAL  M , < 

M = A 33  (Fi) 

TR=T/513. 
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T- 


L 


^ Wished  to  xujc 

PR=P/l>t.7 

A = .u7o2*TR*T\*rH/(PRMTR+.*lj)> 
d = . JO  3 j 374*  (Tk**.7b>  sJtT(r)/s^7l?.-.MTU.tlj)) 
OA=(A«-dMi.«-rH/0)f.lt;8:>*?1>/U*3> 
iFOA.LT.O.)  GO  T 3 1 
EX  = £XP(-3.3E>»rt*H-.  dlJ2*  -1) 

C = . 3G3  ta9*F*  (THf  ( 1.-./  *SiM  (DA))*cX)/i1i<T  (7  R) 

OP=AT AM(1./(G/0A-X) )/< 

IF(  I J'JCT.EQ.l)  GO  TO  2 
E=5. Z-7 

IF(IJ JCT.EO.C)  G J TO  3 

iFlNI  T .oT.l  .AN3  .rtJO  (MIT  , 2)  .F  3 . C ) GO  T 1 3 
JP=  J3  *RI/  RI-JP/2.  ) 

XF  = X- :/oa 
RS=<*  RI 


iP^Aci>iOA Ba*E 


uA.l  dub  {k3j1j1)L»3-jAiJ 
CA_l  3£33  ( > 0 » 1 , E » h L i 3L ) 
Al=X3* Al 


3l=X  = * 3L 

AP=  (El*  3L  ) / ( 0 L*  A L ) 

XS=<* (kl-DP) 

NN  = j 

CA.L  JESS  (*S,  1, 1,  E,AX,3X.) 

CA.l.  -3t3S  (XS,  3 , 1,  t ,CX  , 0x» 

l)E  = ( A P*  3X-AX)  / ( AP*  ( JX-BX/Xi)  -Gx  ♦ AX/XS) 

XS  J- X j - JE 

iF(A35 ( XSN-X3> . LT. 0. Gi 1)  GO  iO  5 


XS=X3N 
i4N=  4M  f 1 


IFOJN.L7.1G)  GJ  TO  - 
b DP=RI-X3N/K 
GO  TO  2 
3 XP=X-l/0A 

JP=OP*rvOUT/  (RCiU  f*JP/?.  ) 
kS  = <»  RO JT 

CA.L  3E3S  < RS  > 1 > 1 j E » 3L  » A L) 
o A _ l 3 - Si  (1X3,0  ,1,  L,3_,cL) 
al=  xp*  al 

3L=XP»3L 

AP= (3L-3L)/(AL-cL) 

XS=K*  ( ROUTED3) 

NN=0 

6 CA.l  3E3 5 (XS,1, 1, E,AX,3X) 

CA.L  dE3S  ( X3 , J , 1 , E » C X , DX ) 
OE=(AP+3X-AX»X(AP*(OX-3X/XS)-CX4-AXXXSI 
XS  ( = < S-OE 

IF(A33  (XSN-XS)  .LT  . u.'JDl)  GO  iO  7 

Xi=XSN 

NN=N^«-1 

IF  ( (N.lT.10)  GG  TO  G> 

7 JP=  X5N /<-RDU7 
GO  TO  2 

1 l)P=  39  0 . 

2 RETURN 
ENO 
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CG1PJT_$  3ESa£L  F J N 3 T I ON  6 


J0(  X) 

J1  < X ) 

joi  x> , r j<x> 
ji (X)  , r 1 <x) 
E = AGG  J<ACy 


IF  <IN=  C <<  = C 
IF  .JN=1  <<  = U 
IF  NN=  0 <<  = 1 
IF  NN=  1 <<  = 1 


FROM  COFY  FUKMSHEU  10  vDC 


SU3HJJTINF  3£S5  (X,  N J,  <<  ,t,  Yl,  Y<;) 

303MJ  4/0FC7  ,ul(l-),ul (Is), 02(15), J2(15)  , 3 3 ( 1 » J 3 ( 15) 

JAI  A J,0,Ci,01  X I.  lE  3,  -1.  J 7 2082519  >31  25c -5,  -2.  0 30273  It 

A46a  1/  2E-3, -2.  32  a -a  131a322o'  + t -2  , - 3 . G + a 7j  11  + 1 3 7 J 1 3 E-2, -2 .40275 1629 
391-15  E-t»-a.:>al'''2+oi5  7 9bSo  c-l,-l.Q6+la3491J2279  Ej,-1.923J+2420J 
C2979  EO , -3. 17399333422 l 3?  Ei., -4 .9c39-.321  091922  EG  , -7 . 394396311  03  33 
01  £ 0 » -1.0  6‘+1-»71203j63o  £ 1 , -1 . + t 56  3 3 6 1 i 7 9 1 29  £ 1 , -2  . C 2 1 3 G 3 73  1 9 1 5 7 0 E 
El»7.3  312oE-  + ,5.1aa21  ! 3 *-.+ 1 5 J 2 9 l-£.,2.0j;>C3G3G353  + 3..  E-l,4.+7aa5l92a 
F a5  3 a a t-l,7.93l77o3++54767  c - 1 , 1 . 237  *o9 r 6923331  £J,1.733+2o32laloa 
G 3 £3  , 2 . +2236019 1+1 72a  £ J , 3 . 1-2  3 / -o9+2G  3 3 a E0  , + . 0 £ 1 3 7 3 3 0 7 oa  9 ab  E0,+ 
H.a39u60196C+77l  t-j,5.a7a‘»555.alo‘r+c.  EG,7.1105Ju599a393u  EG, 3.34+25 
Ia927 9+ 063  EC»3.c7o7j£j7477sll  cG»l. GEO, -1.4735+125975562  E-+,-5.al 
J71J 0 3 + 7 + 9374  E-3,- 3. + 4C56b7l£ 93  0 60  E -2  , - 1 . 197  3 372  9 3 1 2 1 a 3 £-1,-3. 03 
<9-3  27  3319734  E - 1 , - 5 . 1 .+  1 2 51 5a3 J 3 S + 2 c- 1 , - 1 . 25 2 0 7 J 1 20  + 10  3 2 £0,-2. 19+ 
L J 69  2a  3 3 37  7 3 £ i. , - 3.  5 ao 3 5 929  73 , 5C 1 £ C , -5 . + 90907 3 129 7 3 3 3 £3  ,-3.126013 
M 5 lb  31 + bl  £0,-1.  lb3-aC53463bta  £ 1 , - 1 . o2 3+ £ 4 45 2 9 3 3 1 7 E 1 , - 2 . 1 7 so  + 22 o2 
N‘,3G39  £l,9.3  593  7i£-3,o.071o£j51£j  + 3 + 3 £.-2,2.33  7 933422210*77  £-1,3.2 
Oj  436^73722593  c.-l,o.93  7 lt23£x33l7i  E-l,1.3o+55+ai90a33a  £9,1.9  32  2a 
P>6aaaalla  EC, 2.  >9JI35-au30612?  c G , a . 3 c.3  5 3 4 *♦  5 a 9 + 6 37  £ J , + . 2 2 7 1 97  0 14  32 
Q lo  G EG,5.13aa43167aloll  t.  0 , a . 2a  05  3 a 3b2  bb  157  1 3 , 7 .+ 1 0 32  1 5 67  9 32  2 5 EJ 
R» 8. 5a 3 ^ + 5a9 1 J C 74 7 E J , l . j c2  53  a 20  47 +1  + 7 £1/ 

JA7A  C 2 , J2 » 0 5 , 3 >/  1 . Q £ 0 , 1 . 57  a 26 46oT^o3  75  E-5  , - 2 . + + 3 8 1 0 0 3 31 2 P7  2 £-3 
A,-2.iioJo5a3  + a->/t3  £-2,-c.7-.772cia?93729  £-2,-2.+34+1374l7+a27  L-l 
3,-a.+a9974Cbj217bJ  E-l, -1.372 3c b9613o3+3  £0,-1.9-0004+21002+0  E O , - 
C3. 1526  9 7710493  + - £ C , - + . at67 ; 7 a b 3 93 7 1 7 E 0 , - 7 . 3 a C 5 a 7 1+ 0 3 C 5 49  EC, -1.3 
ObO)2*,i  3 320Oaa  E 1 , - 1 . +c -6  39  a 31  6 3 652  1 1 , - 2 . C 1 a + + 5 3 9 3 5 7 34  9 El, -1.1713 
E7>£-3,+.5O03a597326-a7  £-2,1.92179700196320  E-l,+.3330a00+023o73  £ 
F - 1 , 7 . o 729a223t36a9  C 1 , 1 . 22  7 j 7 12  3ao  11  60  E J , 1 . 7 a 9 0 C + 53  32  0 1 43  £0,2. 
G+13a7T 3197269a  LC,3.1»C070loa6al3G  £o,3.58959J92a40356  E0,+.9270a7 
H4b  ? 3 3 7 7 ) EO, a.  acil  5713926023  E C , 7 . : a 3*>  4U223 1 3 3 7a  £ 0 , 3 . 3 3 la  1 26+  21  31 
191  £ 3 , i . 6b  3 e £*»  7 + „ 1 7 J < + c.  C , 3.  , r C , - o.  6 5 * 3a  7 91 J 1 5 o2 a E- 5 , -4 . 9 3 13 a 0b  7 5 
9403*37  £-3,-3. 277  3a2  33  2Lbi3a  . - 2 , - 1 . 1 0+ 27  1 30  4 + 3 + 03  £-1,-3.033525000 
K28+  + 7 b-l,-b.  55627  3161  6026  1 •_ -1  , - 1.  2 + 9 94  + al  49  3 o2  0 E C , - 2 . 1 7 7 ol  1 1 0 07 
U’j  3 EG,-3.a+4=.  + 7Ja3?so22  £ : , - 3 . 4 7 1 2 j5  37  3005  3 1 £0  , - 3 . 0 92  97  3 7o5  3329 
M3  . 0, -1. Ia69367+17952 j E 1 , - 1 . 50 3 4 0 37 3 3 0 3 70 7 £1,-2.16933655306+51  E 
61, 2. 73437sE-3,r. +1  1270  591492.  7 £-2,  2.  -*5ab  + 25 13  + 33  36  E-l,5.1->b5  3o7Q 
0 33  + 20  3 _-l, 6. abac  1 0 3C297241  . - 1 , 1 . 354 7 3 3 97 25 29 3 a £ J , 1 . a 2 19 3 53o 93 3 1 
P-  a _2,£..aa7&72'.  1.  - 9 2 a 91  tc,3.  a326?7a3367135  E3,+.21592a2+bi3l+C  E0, 
T5. 17, J2913132522  r u , + . 2 3 fc 3 4 a ’ + 1 3 u j a 2 £ 0 , 7 . 398 3 7 22  7 5 34 3 12  E0,6.baoa 
t?06'a.M+39C  t 3 , 1 . 0 3 1 3a  . b9  7o7 1 35  £1/ 

JI:3.  1 + 1 6 92b 535  a 9 7 a 
IF ( X - 7 , Jtu)  1 a , 2 r ,20 
‘JNc  = 1 . *.£  0 
< = << 

N=  N 9 
Z=  < / 2 . 0 

G=. 57’?l5bb+9Ql a32 
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1 IF(N) 3,3,4  THIS  PAGE  IS  BEST  QUALITY  PRACTI CABL1 

3 SORE  FROM  COPY  FURNISHED  10  DDC 

UONE 

EM=ORE 

5 R=Z/E*1 
U=-J*  **R 
S=S  + J 
EM=E1«-UNE 

IF ( A JS(U)-E) o,^,? 

6 Y 1=  3 

IF  ( tO 2,3,2 

8 RETURN 

4 SORE 
DONE 
£M=OME 

7 tt= (Z* Z) / (EM* (E4+0ME) ) 

U=- J* * 

o = 5 ♦ J 
tM=E.1  ♦ONE 

I F ( 433( J) -E) 13 ,7, 7 
18  Y1=3*Z 

F = Y 1 

IF ( <) 2,10,9 

10  RETURN 

2 3 = Y1*  (o  + ALOO(Z)  ) + Z * Z 

U=Z*Z 

EN=2. 

QO*4E 

11  R={ Z/Ei4) * (Z/Eh) * (ONE* (ONE/ (ER*Q ) ) ) 

U=-J*  R 

5  = o ♦ J 

QO+  (ONE/EN) 

EN=EN«-oRE 

IF  ( A 33  (Ul -t)  12, 11, 11 

12  Y2=5M2. /PI) 

IF ( M) 1 h , 13, II 

13  RETURN 

9 N=-l 
K=- 1 

GO  TO  3 

14  Y2=  (►*Y2-(0NE7  (=>i‘  Z)  ) ) /Y1 
Y1  = F 

15  RETUR  I 

20  K=<< 

N=  4 N 

SQ=  SORT  (.5) 

oX=  :0o  (X) 

3X  = SIR  (X) 

OZ=i  O*  (OX* 5 X> 
oZ=oO*  (SX-CX) 

Xl=  X*  X 

R=  50 <T l2.o  /(rI‘X))»C.ul 
Y = X • 3 . 1 
Z = Y*  Y 

PO=Xi‘EYAL(C,0,F ,1b, 7) 


% 
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Q0=-  ( X/3. 0 >*EVAL  (Cl,Dl,E,i?,Z) 

IF  ( < > 2 3 , 21 , 2 3 Jf®  IS  B£ST  QUALITY  FRACTICABLB 

IF  ( N)  25,22,25  COrY  FURNISHED  TODDC 

Yi=RMPJ*3Z-:)0*SZ)  " 

GO  TO  15 

IF ( M) 2o,24,25 

Y1=R*  <P0*CZ-30*SZ> 

Y2=R*  (P0*SZi-a0*CZ) 

GO  TO  15 

P11=X1*EVAl(02,D2,E,15,Z) 

01= (X/o.O  > *Etf AL(C3, D3,E,15, Z> 

Y1  = R* ( J1*SZ-P11*CZ ) 

GO  15 

P11  = X 1*EVAL (02, 02, E , 1 5 , Z) 

QlMX/o.G  ) *EV  AL  ( C 3,03,  E,1'0,  Z> 

Y1=R*  (Pll*oZ«-01*oZ  ) 

Y2=R*  < U*SZ-P11*CZ  ) 

GO  TO  15 
ES3 

3U3R0UTINE  TJ  EVALUATE  CONTINUES  FRACTION 
F UNO  I 1 U N tVA  L ( A , d ,£  , 4 , Z ) 

01 'IE .4 5 ION  A (15)  , 3 ( 15) 

GNE=1. C 
C = Z +3 (1) 

EVAl= A ( 1) /O 
W=E  V Al 
T=JNE 

DO  3 1=2, N 
0=Ztd ( I) 

rv  = A (I ) / (C*0) 

S = Ui4E / ( JUEfR’T) 

V=3- 04C 
T =5 
W=R*  J 

EVAL=£V\L«-W 
C = D 

IF  ( AiS(W)-E)  1G  ,10,  3 
CURT  I R'JE 

re  r u r \ 

END 

S’JJ  XO  JT  iKlE  lI'IPAu  < (,x,T,P,F,FM,7H,J,Ja,uP,0E:) 

REA  - 1 
1=a35  (FI) 

TR=T/ 519. 

PK=P/  It.  7 

A = . 37  32*TR*TR*Tm/(  PR*  ( TR  ♦.  ‘♦U)  ) 

J = . JCJ  L I74MT  R*4 .73)  *50*7 (F)/iURT(PR*(TR*.415) ) 

QA  = (A  »J4  ( I.  + TH/li)  ♦ . 1 J 8 5*  M)  / ( vfd) 

IF  (OA  . l T . 3 . ) oO  To  1 
EX  = EXJ(-A.65*K*si~.  o 1 9 2 * R ) 

0=.  jy  J-*o9*F*  (TM>  .95*J»  ( l.-.?*GJRi  (OA)  ) *^X)  / ilRT(T  <) 
OP=(OEc./(3.293ld5*F))*ATMN(l,/(c/Ok-X)) 

GO  TO  2 
9P=  9 3 3 . 

\E  f J R R 


000000  ooooooooooooooooooooooooooooooooooo  oo 


THIS  PAGE  IS  BEST  QUALITY  mCIICABL? 
COPY  FURNISHED  TO  LDC  


FOR  „DC  6BS  0 Oat*** ** CALL  SlaP  MUSI  BE  aXECJTEu  W 

as  Illustrated  on  card  ofeq.:27 

SUB ROUTINE  SET ( N»  X , Y , OX , F , 01 a , M ODE , u AM A X , UX1X N ) 
DFE3.  CONSISTS  UF  T TO  SUBkOJTanE  SJBFROGtvAMS,  jET 
SO.  VE  THE  INITIAL  V J =.  F'R03lEM 

JY /OX  = F(X,f > , Y C XO ) = YO 
WHERE  Y IS  AN  N-VECTDk  WITH  REAL  lOHPJNENTS. 


XECJTEl  WITH  PA-RAMETEkS 


H PARAMETER  DFcD 
□ FED 
OFEQ 

AND  STEP,  TO  DFU 

DFE3 
OF  E I 
OF  EO 
DFE3 
JFE3 
OFlQ 
OF  l3 
OFl  3 
OFlQ 

TABLE,  0FE3 

Si E P SIZE*  0 F E 3 

3RM  F (N  , X f Y , JY)  OF  Cu 


CALL  SET (N,X, Y , OX, F,DI S , MOO-  , jXKAa, OXHIN) , 

WHERE 

,N  IS  AN  INTaaR  OONSUNT  OR  VaRiABaE, 

X IS  A REAl.  YARIASuE,  TH.  I N Jt Ft NOl NT  VARIABLE, 

Y IS  A REAl  V4«I«3wE  N-a<.\AY,  THE  CEPElTOENT  VARIABLE, 

OX  IS  A REAL  OOTSTANI  OP  VhRIhJlE,  THE  -JR\£VT  S i E P SIZE, 

F IS  THE  NAMr.  OF  SJBFOUiiNc.  SU3PkJD'’AM  0-  THE  FORM  F (N,X,Y  ,JY)  jF  la> 
WHICH  3R0  V 10  E S a J akUUT I Nl  SET  WITH  OY/OX,  OFlI. 

OY  IS  A REAL  VARIABLE  v-aRrAY,  OY/DX,  DFlD. 

OIS  IS  A REAl  VARIABLE  J\  ^ONjTANT  WFiiCH  PROVIDES  A TJlEhANCE  jF.D 
FOR  THE  A D A la  - 1 OUL T C T LOCa,.  FRrOk  CHECK  IN  THE  VARIABLE  OFEJ, 
STEP  alZL  MODE , OFlO, 

HOJE  IS  A LUGICA.  VAFiAD.E  OR  CONSTANT  WHICH  WHEN  TRUE  (FAlSE)  OFEC , 
INITIATES  THE  FIXEj  <VA«IA3lE>  STE3  S iZC  HjOE,  DFE3, 

JXHAX  (uXMlN)  IS  A rLA.  VA^IABlE  M CONSiANT  GIVING  UPPER 

(LDWtf.)  BOUND  a F On  ABGIjX)  IN  THE  VA.xIO^-E  STEP  MuJE  , 
INITIALIZES  NEGEaSAY  VARIABLES  PRICm  To  Any  I N T E i RA  T i ONS  • 


P R I C \ To 


INTEGRATIONS, 


vALl  STEP(N,X,Y,OX,F,OiS,MOjE,DXHAX,L.XrtiN)  THEN  INJcGRATEa  FROM 
TO  XOX.  UPON  FXi  T PROM  S1E',  X, 

Y,  ANJ  OX  WILL  HAVl  BEEN  Sri  TO  THE  I r\  N-W  VA.JES.  T HUa  TO 

INT - j RATE  0 VE\  SuC^E^jaNG  aTiPS,  ^ a L L aTEP(N,X,Y,uX,F,JIS,MOD_, 

JXHAX,  DXMIN)  la  EXECUTED  FOR  EACH  .-Tl3  ollIREO. 

THE  SU3  RJUTInE  aUBPROGRAM  F HOST  Be.  iNC.UUEO  a N AvY  JOB 
CAlLITG  SET-STtH.  iT  ii  FROvIOEJ  JT  THE  USE\  *NJ  HAY  HAVl  ANr 
LEGal  SJ3(\0UTInE  NaHl,  THE  VA-1A3lES  DuRrvESPJNJi  1G  TJ  Y ANj  Jy 
MUST  3E  DIMENSIONED  APPROPRIATELY  THtRlN. 

DIMENSION  Y(N> 


THE  vAlJE  OF  MM  A X A 40  THE 
OF  THE  VARIABLES  0 ANj 

memT  shjjlo  3r  identical, 
dimension  0 < 90 * f* > * w(90,i 


EXT  t\ 4 A L F 
LOGIOAl  100t,C0i.'t_ 

OmT  A N'lAX/3  3/ 

DATA  EkF/lTO.X 
DATA  DXr/2./ 

M = N 

IF  (fi.wT.l.uR.M.GT  .NmCX) 

<A  - 0 i a 


«/  r L 4 I 

DIMENSIONS  ASSIGNED  lu  HE  FIRST  J0a I T 1 0 OF _ i , 
w IN  THl  FJLlOWaNS  UlMENSIJN  state-  OFl'I. 


! 

J 
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r 

1 

; 

THIS  PAGE  IS  BEST  QUALITY  PRACTICABLE 

FROM  COPY  FURNISHED  TO  DLC  ^ 

COJL=MOOC 

QFEU.C5 

HH  AX  =OXMAX 

0Ft3.05 

HMIN=OX.1IN 

0FE3.05 

RU=E*F 

DFE3.05 

SET A= JXF 

0FE3.06 

K=3 

0FE3.06 

K2=  0 

OFtU.36 

i 

00  10  1=1, M 

DFEi.Ob 

j 

j 

10 

*(1,1) = Y ( I ) 

OF  EU . 0 b 

CALL  Fl1,X,r,)(ll5)l 

OF  1 3 . 0 b 

j 

«E\ URN 

OFlU.06 

20 

PRINT  3) 

0Fc3 • Oo 

30 

FORMAT  ( 55H1SUBROUT  INc  Sci  N«s  ARGUMENT  OoT  - OF- R ANSc.  • SEE  LISTING 

• ) uF  EU  • 0 6 

CA.l  SYSTEM ( 200 , 1.  ) 

oFca.ob 

RETURN 

0FE3.07 

ENTRY  STt-> 

0FE3.07 

HO 

XC=  X 

DFEU.C7 

H = J X 

OFc.3 . 0 7 

IF  K.NE.C)  IF  (K-2)  5 0,  So,  11 3 

0FE3.C7 

XP=X0 

0FE3.07 

. 

00  4 5 1 = 1 , M 

OF  E J . 0 7 

*»5 

rl  d , ■>)  = i (I,  1) 

3FE3.07 

50 

<l=4-< 

0FEQ.07 

00  7U  1 = 1, 1 

0FE3.07 

00  60  U =K1 , 4 

OF  EU. 0 8 

60 

0(1 ,U) =0(1, J»l) 

0FEQ.08 

R(I,2)=H*0(I,4> 

JF  EU . 0 6 

H(i.,l)=M(I,l)*.5*H(I,>) 

0FEU.08 
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Y ( I ) = W (1,1) 

OFlQ. C6 

X = XC*-  • 5 *H 

0FE3.C8 

«AuL  r <1,X, V,D ( 1,5 ) ) 

0FEU.08 

UO  Sj  1=1,1 

OFEU.Ob 

i 

U(1,3)=H*0(I,5) 

0FE3.C8 

1 

«m,l)=*<I,l>4.'MMI,3)-W(i,2)) 

OF  EU . C 8 

SO 

Y ( I ) = A ( 1 , 1 ) 

OF EU.09 

CAll  F(1,X,Y, 0(1,5)) 

DFcU. 0 9 

JO  93  1=1,1 

0FEU.09 

W(I  ,-,)  =H*  0 ( 1 , 5 ) 

OF E 3. 09 

*<I,l)=*(I,l)4*(l,4)-.5*H(l,3) 

OFEU.09 

90 

Y ( I ) =W(I,1) 

OF  £3 . 0 9 

X = *C»  H 

OF  E3  . C •» 

CALL  F ( 1 , X , Y , j ( 1,5) ) 

0FEU.C9 

UO  ljj  1=1, M 

OF  EU.  C 9 

W(I,i)  =»((I,1)-W(I,4)».  lol)6obJuotifst.3o/‘  (R(i,2)42.»(W(I,3)4M(I,4))4lJr£vi.09 

1»0( I, 5)  ) 

OF  l3 . lu 

100 

Yd  ) = R (1,1) 

0FE3. 10 

< = < +1 

0FE3.10 

<1=  < 

0FE3.10 

GAlL  FiM,X,Y,0(1,j) ) 

DFE3 .10 

RE  T U R 4 

OFEU.IO 

110 

00  133  1=1,1 

OFlU. 10 

*(I,2)=U(I,1> 

OFEU.IO 

00  1 ? 3 J=1,U 

0FE3. 10 

12  C 

j(i  ,u ) :0(i,um 

OFc-U.  10 

^(I,3)=R(I,2)4.-16666ij6tooOJ7E-l*14(j5.*0(I,4)-^9.*U(i,3)4j7.*0U0FEU.ll 
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J 

1,2> -9.*J(i,l) ) 

130  Y ( I ) = 3 ( I, 3) 

X = XD  + r1 

3A_l  F 11>X,Y,D(  1,5)  ) 

00  140  1 = 1, M 

V(I,l)=^(l,2)  + .-  lo6oo6o6bojj37L~l*H4  (9.*P(I»5)  *’10.*0(I,4) 

1-5. *j < I,3)»u(l, 2>) 

IhO  Y(i)=N(I,l> 

CAlL  F( l,X,Y,Cll,3> ) 

IF  (3  03E)  Rt  T JR  N 
ER<=  5 . 

DO  150  1=1, M 

150  ERR  = ARAX1(ERR,  A BS(  w (*,  1 > -K  (i,  3)  ) / ( 1*4.*  A1AX1  ( AdS  M ( 1 , 1)  ) , 1.)  > > 

IF  (ERrt.GE.RA)  IF  ( i-il  N-A5j  ( H ) ) 1?0,15?,15? 

<1=  0 

IF  (1)*ERR. LT .Rm)  IF  ( rMAX-Ad  5(H))  1E?,1?5,213 
155  <2=3 

RETURN 

160  IF  U1.ME.3)  &J  TO  150 
DO  17)  1=1,  ti 
R(£,l> = H ( 1 , 5 ) 

170  0(1, 5)0(1, 1) 

X=  X P 

GO  TO  2)0 
180  00  19)  1=1, M 

W(I, 1) =W  (1,2) 

190  0(1 ,?) =0(1, A) 

X=XD 

200  K=0 

K2=) 

DX  = 3IGN(AMAXl(AdS(H)/oETA,H'1IN}  ,H) 

GO  TO  4) 

210  <2=<2+l 

IF  ( < 2 . w T • 6 ) RETURN 
< = ) 

OX=  SI  GNU. II N1  U 3S  ( H)  * 3ETA,rHAX>  ,H) 

<2=3 

RETURN 

£N3 


3FE).  1 1 
3FE1.11 
JF  l 1. 1 1 
3FEj.ll 
3ril.ll 

DFl1.11 
3Ft_3.il 
DFl1.11 
3FE3.il 
DFE ) . 1 c 
3Ft_3.lt 
)F  £ 3 . 1 c 
3Fl3* 11 
3FE3.1c 
JFE3.it 
3F_1. 1£ 
3FE1.1C 
DFO.lt 
3 F t.  3 . 1 1 

jfej.i: 
OF  c.)  • 1. 
OF  E3 . 1 
3FE3.1 
3 F 2 3 . 1 : 
)F  23. 1 . 
3F  E3 . 1 • 
3Fl  1. 1 
3FE3.1 
JF  2 3 • li 
Dr  t.3  • 1 
3F23.1* 
3Fc3 • 1‘ 
DF  £3 . 1 . 
3F£3 . 1‘ 
3F£3. I*- 
JFE3.1- 
3F  E3 . 1- 
3F_3. 1- 
3FE3.1* 
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A.  2 OPTSHE  INPUT  - TEST  CASE 
Card  1 


Column 

1 

11 

21 

31 

41 

59 

70 

80 

. 5 

5000. 

0. 

4. 

5. 

- 1 

o 

L 

i 

1 

Card  2 

Column  1 11  21 

540.  14.7  .0750 

Input  Data  is  defined  on  comment  cards  at  start  of  OPTSHE.  Read 
and  Formats  Statements  are  on  the  first  page  of  the  program  listing. 

A.  3 TYPICAL  OUTPUT  - FOR  INPUT  GIVEN 

The  following  12  pages  of  print-out  are  typical  output  for  input 

given. 
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APPENDIX  C0FY  fu^ISH£D  TO  DDC 


INTERACTIVE  VERSION  OF  PROGRAM  OPTSHE 


B.  1 PROGRAM  LISTING 

PROG R Ah  0°  T S (T  APT’,  INPUI  , OlTcUi  »T A- E6=INPUT»TA°ES= OUTPUT) 

COMMON /3L< 1/FM, ETA, = T , Au 

COMMON/ SKA /SSF  ,TTc  ,OSH»H,Sm 

COMMON  / 9LK  P/TCUrT,PC!,'r,K><7 

COMMDN/SKC/NSnrT  , v <T  A PT,NIT 

''0MM0N/3LKC/HA,  nSHA  ,~M 

rOMMOM/SL<E/US, NU , AL, P l,C 

COMMON/ EKH/ ACC  , JLT  M 

HI  ME  NS  1 ON  X(5T)  ,¥(«;") 

COMPLEX  KZ 
REAL  K,NU 
WRITE(b,17F) 

READ  (5  » ♦ ) JP 
IF  (JP.NE.l ) GO  TO  7 7 
WRITE ( b » 1C  C ) 

REAO(C,*)  FPrO,  AM,rOllT  ,TP*^P 
PI  = 3.1>16 

C = 49. 02*12*30 RT (TEMr) 

H=OOUT 

*=?.*=>l*FX~Q/r 

6TA=?.*H*FEE0/C 

WRITE(F,1?T) 

FE  A 0 (5  > * ) FM.CSH 
WRIT  P ( t , l’O) 

READC3,*)  IDUCT  ,NSOP*  , NIT  , iw 
WK  i.T  E ( C , 1W1> 

READ  (5  » * ) ACC,JLTM 

WRITE  ( E » 1*  *1 ) FRrP  ,A  ROUl  ,Tp-p 

WRIT  L ( c.  * 1 S 11 ) FM,OSH,ETA 

wpiTr(c, i7 0)  touct,neoft,nit,iw,  JLIM,  ACC 
IF  (FM.FO.'j  • .OR.  Cc  H , EO • i . ) GO  TO  16 
WRITE<e,i<n> 

RE  A D (5  » * ) PPrSS,FHO 

NU  = 1**4  .♦  (.  27-3*.  0C1933*TEMP-?.568P-?*TEMP*TEMP)  / (RHO*l.  E5) 

US  = SQRT  ( .0  22  3*C*C*FV*FM*( (C»  fi^S  < F M ) *j SH*H/NU ) * * (- . 26) > > 
AL=5.*NU/(H*US> 

9L  =6  •*  A L 
lb  CONTINUE 

WRITE<t,lO0> 

REA0<5 ,*>LIL 

IF (LLL . EQ. 4)  CALL  c IGFN 

IF(LLL.F0.3)  WRITE(  6,  230) 

IF  (LLL  . EO.  3>  PFA0(5,*»  FM , OSh  , A M , FE  E3  , J LlM 
IF  (LLL  . EO.  3)  WRITE  ( 6,  150)  Fr  cQ  , A m , POJ  T , T EMP 
IF  ( LLL  . FQ.  3)  WRITE(6,lbP)  FM,OSH,rTA 

IF  (LLL  . NE.  1 .ANC.  LLL. ME. 3 .ANP.  LLL.NE.4)  GO  TO  700 
TF  (LLL  .EO.  4 .OR.  LLL.E0.2)  GO  To  16 


ppgr.gm.Ma  PAGE  NOT  FIJuKED 

BUM 
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REA0(5,*)  SE,TF  FROM  COrY  fURNISHED  TQLLC  

WRITE  (f  ,?lu) 

PEA  D (*> , * ) STEF 
O'!  I7  1 = 1,  10 

CALL  SHFS^f (SF,Tr,o3.XSf}w) 


WRITC(f  ,?5C)  3E,TE,7C,XE 
TE=TE+STco 
17  ro\'TINUE 
00  TO  16 


7Cu  IF(LLl.NE.?>  STop 
WRIT  r ( E , 20  0 ) 

°E  A 0 (5  , * ) RE,TE 


CALL  ShESc T(SC, TE  ,‘ 3,XS,1> 
WRI'E  (6, 2 Ft.  ) bf»Tr,'S,XS 


o 

■r* 

C 

b— 

c 

LT 

7? 

ET  OF 

1T5 

FORMAT ( IX, *CNTF ? 

1*  ) 

10i 

FORMAT  ( 1 X, *tWTEF 

F-5"C,  AM,  TftT,  T " MT  t) 

120 

FORMAT  (IX,  * F“J T'T R 

F M,  CbH*  ) 

13  C 

FORMAT (IX, «EMTEC 

JC  JC  T,foOF-  ,M’,  IW*  ) 

1UC 

FORMAT (IX, *emtf  ? 

ACC, JLIM*) 

IE" 

FORMAT  (IX, * FRF  Q = 

* »r  3.  2, 7X,  *£•'  = * ,Fi.  2,  IX,  *kOUT  = * ,'t  .3, 

?3X,*TFMP=»,F3.7) 

IE  " 

FORMAT (IX, *FM=* , 

F('.",,rX,*r.EI!  = *,Fc.‘r,7X,*FTA=*,F3.5) 

17  1 

FORM At (1X,*I0U:T 

= * ,1°  , 7X,*NSOFT  = » ,12,  xx,*i-lIT=*f  I^,3X, 

3*TW  = *,I2,?X,*JLTf=*  ,Im,’X,*ACC=*  ,EE.l) 

18  0 

FORMAT  (1X,*fn|TE  k 

FRE3C  , P.  Kj“  ) 

190 

FORMAT  ( IX,  *E"rcF 

0 , 1, 2 , 7,  *+*) 

2CC 

format (IX, *emtfr 

FF,Tf ♦) 

210 

FORMAT ( IX, *ENTcp 

ST  Er  * ) 

23  0 

FORMAT  (1X,*EMTE-7 

FM  ,3FH,AM,  F;  rQ  , JLI  M*  } 

25  0 

FORMAT (IX, *SE=*  , 

F 1 0 . J ,‘*X,*TC=*,  F 1 2 . 8 , •»  X , *RS  = *,p  12. 8. 

2LX, *YS=*,F13. 8) 

END 

SU9R00T INC  E I Gr  N 

DIMENSION  t£(3)  ,f$(  3)  ,xc(3) 

WRITE(E,1C0> 

RE  AO  (5  , * ) SE,TE 
WRITE ( t ,120) 

RE  AO  (E  , * ) PS,XS 
WRITE  ( fc  , 1<*D 
RE  AO  (5  , * KSO,  XSO 
OElRS=hS(S> -RE ( 1 ) 
CELXS=XS(T)-X?( 1) 

OELTr=TE(7l -TC( 1> 

CERRS  = OELRS/OEL  Tr 
OERXS=OELXS/OrLTF 
R=RSD-KS (?) 

X=XSD-XS  <? > 

CENOM=  C E R9  E*OER'’S  ♦ C E-  X o*(  E RX  S 
OELT  E=  ( R*  JERRS+  X*  OF  RX  S ) /Cf  NOm 
OELSE=- (X*  OCRRS-F*  CEO  X E)  /OE*iGM 
TEN  = TE  (2M-CELTE 


SEN  = EE ♦OEL  SE 
WRITE ( t ,455)  TEN , ErW 
IPO  cORMAT  (IX,  ‘ENTER  SE,  TE'S  •> 
icC  FORMAT  ( iX,  ?E"ICR  RE'S,  X*  ,c  •) 
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FORMA”  (IX,  * ENT  E-  °SC,  XSr  *) 

FORMAT ( IX, »T"N=  *,Fl.’.«,(K,'-r‘l=  *,F12.a> 

RETURN 

FNO 

SUPAOUT  IN"  SHFS  F T ( Si  , T£  , RS  , X<^  , I w ) 

COMMON/ 3L< 1/F*, 

COMMON  /OLKA/  SSC  ,T”“  , "SHjH,  S * 

CO  MM  ON  /GLK^/  I ")U'TT  , ON”  , K ,*  7 IS  PAGE  IS  BEST  QUALITY 
(~OmMOM  /3LKC/  NCCc”  ,a  FTAf  T ,!  TT  FROA(  COPY  FURNISHED  TO  QD( 
COMMON  /ELKO/  H*  , O^H"  , 4* 

COMMON  /9LKF/  US , NU , ’ L , °l  , r 
COMMON  / 3L  *<F/ 

C0''MJN/3L<H/ACO  , JLI  - 
COMPLEX  AT  ,ZcTA<',^Z»~,pc,f?Hf 
REAL  < , NU 

01  MENS  I CN  Y(!»),YL(«> 

LOGICAL  HJOE 
EXTf>'NfL  DFRIY 
HO  0E  = . F AL'E. 

SSE=*E 
TT  r = TE 

A I r r mp  l X ("  . ,1.) 

N=U 

IF  ( IJUCT)  21,2?»27 
XSTA  RT  = 0 . 

sox=i. 

GO  T 0 24 

XST  Ar,T  = RO  JT/H-l  . 

SOXr i. 

GO  TO  24 

IF  (HOD (NIT ,2) . EO , ' ) XSTm k -= ^OU T /H 
TF  (MOC  (MIT,2J  .NE  ,n  F-0  *0  22 
SO  x = -1 . 

IF  (<NSCF'. EO. 2)  .AN3.  (Nr.cn.o)  2fc,?4 

TI=POUT-H 

HA=RH-RI 

XST  A ?T  = RM/  HA 

XrXSTAF  T 

S0X=-1 . 

nSHA=OSH*H/H*. 

IF  ( OSH. NT."  .)  . AMO  . (FN.NE.fl  . ) ) A L A=5  . * NU/  (H  6 *US  > 

IF  ( (OSH.NF.a.)  .ANO.(FM.I.E.O.))  ^LAsE.'ALA 
Y( 1) =1  . 

Y(?)=Y ( 31=  Y ( A) = 0 • 

GO  TO  °0 
X=XSTfl  F T 

IF(AW.GT..',.AND.XCT  A\T  .FT.  . r .AMC.ICUOT  .FQ.C)  X=.  "I  G 1 
IF  (Nil  , GT  , r ) GO  T0  r»7 
v(l) =1 . 

CC  = 1 .0 

IF  (X  .EC,,  .f  Cl)  Y (1  ) = c:«  X**AM 

r (?) =r ( 3)  = y(4  » = r. 

IF  (X.EO. .COl)  Y(7)  = ,'C*AH*X*»(Ah-1.C) 

GO  TO  PO 

Y ( 1 ) =YL  ( 1* 

Y ( 2 ) =YL  (2) 

Y<  3>  =Y L < ?» 

Y(4) =YL (4) 


Fn  . C ) ) 2fc  ,?  4 


r.o  to  r 

IF(lW.GE.l)  ^RI’EC’.lCn 
1 0f'  FORMAT  (/* 

1 **ACH 

’IM  »HS  *> 

101  c’O'MiT  ( IV  , 14  ,qFl<4.  7) 

ox  = s ox*  2 .E-u 

j=i 
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1=0.0 

p A L L SET  ( N,  X,  Y,  CX  , r f JV,  AC.  , •JOr)r  , .03  , 2 .E-b> 

IF  (IW.bE.l)  WRITF  ( - , U 1) j, y, V“, X,SM ,<HS 
A?  CALL  Sit®  (M,v,Y,  ?V,rtFI(/,  ACr  ,MOCE,.3  3.2.F-6) 

J=  J + l 

IF(J.i,T.JLin  MRITP(F,72E)  J,X 
7?6  FOFmmt  ( 1 X,  * OT  G mOT  REACH  WAU  IN  * , I.  , * STEDS,X= 

TF(J.GT.JLIH)  GO  to  fj 

TF  (IW.GE  .1  .A  on.  (t'OA  ( J , 20)  . EG  ,r  . Cn.  J.EO.  2.  OR.  (ABE  (OX)  ,G‘r  . . 305  . AND  . 
♦ MOn(  J,  E ) .EQ.n  . AP.  ( A.  LT  ,C.  ..ft  no.  »cnt  J,  E ) . fq,  3 ) ) ) 

*-WRIT-(7,l'’l)J,Y,VM,X,S(',-H<:- 

F=1.-A0S(X-XSH"'T) 


A=B-nsn 

TF  ( A .GT  . ABSOX)  ) GO  Tf  «? 
IF(A.LT  .2.  E-6)  GO  TO  P.u 

cx  = snx*  a 


CALL  SET(MfX,Y,  OX  )rlc‘'lV  , ACC  , I0r'c  , . L 5,  2.F-6) 

CAlL  STEP(N,X,Y ,CXfC-RlV,ACC,“ODE,  .Q5,2.t-6> 

TF(IW.GE.l)  4RI~F(7  ,lrl)  J,  Y , Vr(,  X ,SK,  PrtS 
8«-  IF  (ARS  (OX)  .Lc.  ( USH/10.  ) .(M3.  - .GT  .ARS(  OX  ) > GO  TO  *2 
IF  (f!  .LT  . A9S(OX)  . AMD  .GT.  2 .E-6)  GO  T0  ?6 
TF(R.LE.2.E-*)  GO  T 7 
GX=SOX*  OSH  '?~l  . 

CALL  SET  (N  ,X,  V,  OX  , D E^T v , pC " , *•'  ODE  , .OS  ? .c-6) 

GO  70  fi 2 

8F  ox=sox*o 

CX=S0X« (1. -AOS( X-XSTAF  7) ) 

PALL  SET(N,X,Y,OX,DE;IV,ACC,  “*002  , . " 5,  ”>  .E-b) 

CALL  oTFP( M, X,Y ,DX  ,CrriV, «Cr , “OOE,  .C3 , 2. E-6) 

88  PONTTNUE 

IF(IOUCT.EO.-l.  A NO.  \SCF'.  tO.  ?.  AN  C.  Nil  .tO.Q)  Y(  5)  = Y(3)*H/Ha 
IF  ( T DUC  T ,EO.-i  , AnC.  NS  CF'r  .ED.  2 . A N C .NIT  . EQ  . ")  Y(-)rY(4)*H/HA 

IFIIM.&M)  WRITP  r , 1C  1)  J*Y  , vn  , X,CM,  RHS 
31  T F ( I W . E 0 , r ) GO  TO  7 

IF  (ICUCT.NE.-I.OR.M'OFT.nE.?)  GO  tO  t 
YL  <1)=Y  (1) 

YL  ( 2 > = Y ( 2) 

YL  (3)  = Y (3) 

YL (4) =Y  (4) 

7 P=CMPLX(Y(  1 ) * Y ( ? ) ) 
po  = r^PL  X (Y  ( 3>  ,Y  (M> 

7£tAS=-AI*PI»F/PF 

TF  (OSH. ED. d.)  ZF  T A 3=  7ETAS* ( 1 .-F**K7/ <)  **2 

IF  ( (IlUCt  .E0.-1)  .ANr . (MOD  (NIT, 2)  ,FQ.  G)  ) ZCT AS= - 7 E T A S 

RS  = R CA  L ( ZE  T AS  ) 

XS  = A IHAG  l? FT  Ac) 

RETURN 

FNO 
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SUBROUTINE  DERI  V (N,X,Y,nY) 

COMMON/  SKl/PM,  ETA,  = 1 ,AM 
COMMON  / 3L  K A / S E , Tr  »°S H»H  > S“ 

COMMON  /BL  KB/  I DUCT  , “OUT, K ,K 7 
COMMON  /3LKC/  NSOFT  ,v?Tf  f:T  ,NIT 
COMMON  /PLKO/  Hf-  , OSH-  , PM 
COMMON  /BL  <r/  US  » NU  » - L » Bl  » 0 
COMMON  / BL  KF/  \ZJ,CHS 
COMPLEX  A, 8, -HS , ° ,P7, K7 
RE  a L K,NU 

01  ME  NS  ION  Y (N) , OY  (N) 

A<Z=K*T  E/r  TA 
3K  7=  -K * ^ E/  E T A 

IF  ( (I CUCT  .EO 1 ) .6  NO . ( NSC F"  . rQ  . 2 ) . AN  0 . (MI r. EQ.  1 ) ) AKZ=H*A«Z/HA 
IF  ({IlUCt.F0.-1)  .AND.  ( N w0  FT  , - 0 i E)  . A >1  C . (NIT. EO. 1 ) > 3KZ=H*d<7/Hfl 
KZ=CMDLX (4 KZjBKZ) 

TF  ( (FM  ,E0  OF  .(  .EC.  0 .)  ) GC  TO  12 

SI GN  = 1 . 

TF  (FM.LT.  ".)  STGN=-t  . 

TP  ( (I  r UCT  .EO.  - 1)  , A NJ  . ( NS  0 F~  . EO  . c)  . VN  0.  (NIT.  to.  0)  ) 71 , 32 
31  ■'?  = X-(ySTART-i.  ) 

IF  (C3.GE.05Ha)  GO  To  1? 
flLA=F.*NU/ (Hfl*US) 

RLA  = f>.  * ALA 
YP  = C9*Hfl'US/NU 
0= , h n7  * Y D 

IF  (YP.CT.5)  0= . UC’* f- 2.Lc*r .* ALCG (Y=  > ) 

IF  (YD.GT.3a)  J = . £.(’•’♦  (1  .*  M,  < * CL  rr  ( yp  >j 
SQ-1  ./.4C7  + .1M"X?(C) -l.-O-O^O/ 2. -C# j"Q/F .) 

S“  = SIGI'.*HA  ♦US’US/  (r  *''1*  .*•  J7*  n) 

E=1 . -Or /OSMA 

IF  (F.  lT  ..  1)  SM=F“*  1"  .*F 
GO  TO  l" 

3?  CA  = A 3S ( X-XST  A rT ) 

CB= (X3T  A R” ♦l.-V) 

IF  (03.GT.1.)  0 -»  = X-  (XSTfrv'T -1  . ) 

TF  ( (JA.GE.OSH)  .ANO.frs.Gt  3M>  > r-U’0  12 

IF  ((0A.LT.05H)  , ? N 0 . ( a S Uf-  T . t 0 , 2 ) . A N 0.  ( i J UCT  . c 0 . 1 ) ) Gu  TO  12 

IF  ( (O'- ,1.7  .OSH)  .AND  . (XST.  C*.  r.O.t  .)  .AN  o.  (TOJC’.p  ).  • ) ) GO  '0  12 

YP  = D a*  H*uc  /N’J 
IF  (DG.LT.OA)  Y P = C 0 * Y F / C A 
Q=,407*YP 

Ir  (Yp.GT.p)  C=.PC7*(-7.[E+r . * A L 0 G ( Y2  ) ) 

IF  (MP.GT.3r)  Q - . i» " f 1 . b 2 . * A L 0 G ( YP  ) ) 

SQ  = 1 . / . u r?  ♦ . l*  ( f x c ( 3 ) - 1 .-  l -T  1/  2 . - C* J ‘ 0 /r  . ) 

Sm  = SIGf*H»  US* US  / ( C*  NU*  .4  i. ' *c  0) 
c = 1 .-DA / DS  H 

IF  (0-3.LT. Cfl)  F = l.-CB/0Sh 
IF  (S-.LT..1)  S-l=SM*f.-F 
TF  ( 0£  . L 7 . Cfl  ) SM=-FM 

IF  ( < 1 1 UCT  .EO.-l)  ."  N‘  . (mi  j C -I1-,  ?)  ,tO.  .)  ) b'=-S” 

GO  TO  17 

1?  PMrO. 

17  continue 
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CALL  MACH  (Frt, VI, DA  ,19,  ALA, ''LA) 

A=2*KZ*SM/ CK-VM*KZ» 

IF  (IOUCT)  22,22,21 
2?  IF  (X.GT.3.)  A-A  + l./Y 
21  9 = H*  H*  (K*K-KZ4K7*  (1  ,-VH*VM)  -£.♦  Z) 

IF(X.GT..i)  3=9- ( AM/X) *«2 

IF  ( (I  DUCT  .EQ.-l)  .AM.  ( NEOFT  . EQ  .2)  . AND  . (NIT.  EQ.  H ) 3=HA*HA4  3/  (H*H) 
F =CMDL  X (Y  (1)  , Y (?) ) 

PP=C*PLX  (X  (3)  ,Y  ( **  ) ) 

FHS=-A*PP- 3*  ° 

DY  ( 1 > = Y (3) 

CY  ( 2 ) = Y (A) 

OY ( 3 ) - REAL  ( RHS ) 

PY(A)=AIMAG(PHS) 

RETURN 

END 

SU3R0UT INE  MACH  ( Fm  , V ** , 0 A , 0 0 , A L A , 9 L A) 

COMMON  /3LKA/  Sf,Tc  ,nSH,H,^M 
COMMON  /9LK3/  T g UCT , ?OUT , < ,*  7 
COMMON  /9LKC/  NSOrT,YjTA(- T,NIT 
COMMON  /3LXD/  HA,CSH?,F.M 
COMMON  /f>L«€/  US, NO, Al  , »l  , <' 

-eal  k,nu 

IF  (OSH)  1,1,2 

1 YM=FM 

GO  T 0 1) 

2 S I G N = 1 . 

IF  (FM.LT. r.)  SlGNr-1. 

IF  ( (ITUCT  .EQ.-l ) .AM  . (NPOFT  .EC.  2)  . AND  . (MT  . El.  1)  ) 3 ,4 

3 IF  <03. GF. OSHA)  GO  TO  1 
YP=03*hA*US/NU 

IF  (06. LT. 9LA)  GC  TC  f 

YM  = SIGN*US*(S.^'?.r'*A1.0G(YP)  ) /C 

GO  TO  9 

c IF  (r/<  ,LT.  ALA)  GO  TO  f 

YM  = SIGf»*  US  Cc+c  .*  t LOG(  YP ) ) /O 

GO  T0  9 

fi  YM  = SIGf.'*US*Y3/C 
GO  To  <3 

t IF  ( (OA.GE.DSH)  . AND  . ( T3  . GE  .0  ^H)  ) GOTO  1 

IF  ( (NEOFT  .EQ.?)  .AM".  (CA.LT.i’Sri)  .AKC.  (IOUCT. E0.1)  ) GO  T0  1 
IF  ( (XSTART.£Q,,.  .)  , svo.  COU-'T  . EU.G)  .INC.  (DA.  LT.O->)  ) GO  TO  1 
Y=QA 

IF  (03.LT.DA)  Y=J3 

Yp=Y*H*LS/ NO 

IF  CY.LT.t3L)  GO  TO  7 

YM  = STGf.*US*  (c  .6  ♦ ? , 5 * i LOG(Yn)  ) / r 

GO  TO  9 

7 IF  (Y.L7.AL)  GO  to  » 

VM  = SIGN*USm  (-3.  T>+6  ."  A LOG  <vc  ) ) /P 
GO  TO  9 

S VU=SIGN*US‘ YP/r 
9 L = n 

IF  (TOUCT.  EO.-l  .A  KO.NSOFT  ,EC  .2.  AND.Nl  T . EC, Cl)  11,12 


WISPAGE  IS  BEST  QUALITY  PRACTICABLE 
f®QM  CQPY  I UpmsHED  TO  LLQ 


90 


11  E = 1 • -08/DSHA 

IF  (F.LT..1)  VM=VM«-  (l.-lf  .*E)MFF-VN> 

GO  TO  10 

12  E=l. -DA/OSH 
IF  (03.lT.0A)  E = 1 O'l/OSh 
IF  (E.LT..1)  VM=VM«-(1.-1C.*E>»(FH-VM) 

10  RETURN 
cign 

SUBROUTINE  LOOP  ? ( X , v , NP, M ,IC , NC ) 

Cl  ME  NS  I ON  X (50)  ♦ Y (c 0)  ,S (r 0) 

JJ=NP-1 
CO  1 J=1,JJ 

S(J)  = (TIJ*-1)-Y(J>  )/tX<J*ll-X(J>) 

1 CONTINUE 

M — O 

II=NP- 3 
CO  2 1=1,11 
J = I«-2 
CO  3 N=J,JJ 
LOOP=0 

7 - (Y  (N)- Y(  T) ♦$ ( T) *X (I) -S (N) »X  (K)  )/(  S ( I ) -S ( N) > 

IF  ( ( (X  (IT  .Lr.7 . A NO  .V  (1  + 1*  .CE.Z)  .OR.( X(I)  ,3E .Z. AND.X  (1*1)  .LE. Z) ) 

X .and.  ( <xm  .LE.  7.  AN  1.  X<N  + 1 ).  GE.Z)  .OR.  (X  (N)  .GE.7.  AND.  X(N«-i)  . LE  . Z)  ) ) 
X L OOP  = 1 

IF  (LOCP.FG.l)  GO  TO  l 
OO  TO  Z 

U 

IF  ( M , G T • 1 ) GO  TO  * 

IC  = I 
NC  = N 
GO  TO  2 

F IF  ( (N-I» .LT. CN^-TO  ))  fc,3 
* TC  = I 
NC=N 

3 CONTINUE 

2 CONTINUE 
FETURN 
ENO 

SU^ROUT  INr  IMS'1  (X,  Y,f  ,N,  l l.yn 

Cl  ME  NS  I CN  X('IC)  , Y (N<=)  ,7  (2)  ,W  ( ?)  , ► <<5>  , (5)  , 0(5) 

1 CO  2 J = l,c- 
MX(J)=MM(J>=1 

2 J(  ))  =1  r . 

TI= J J=f X (1 ) = MM< 1) =1 

0S=1". 

IF (X  (?)  .L£. X ( 1)  ) OCs(X(l)-X(?))»“?*(Y(l»-Y  (?))♦*? 

CO  5 J=?,NP 

!*  IF  (X  (J)  .LT  .X(J-l)  I ^ TO  c 

IF  ( J.NL.2.  ANJ.MMt  J J)  . EO.  ( J-l)  ) J i = J >1 
MX  (I  I)  - J 

3(II)=(XU»-X(J-m*»?+(Y{J)-Y(J-l))»»2 
GO  TO  E 

f IF  <J.NE.?.Ai40.*X(IT>  .EO.(J-i))  ITrllfi 

MM  ( JJ)  = j 

5 CONTINUE 
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NN  = 1 

CHIN=0 (1) 

00  7 J = 2,5 

IF (0  (J)  .IT .DMIN)  NM-J 

7 IF (0(J) .LT.0MIN)  0 M I N = C ( J ) 

IF(OS.GE.OMIN)  go  Tc  (■ 

IM  = 1 

GO  TO  i.  Q 

8 TM=MX(KN) 

XM=X  (IM) 

IF(IM.EO.NP)  GO  TO  '4r 
XL  = AMAX1  (X  (IM-i  ) , x { IN' 41)  ) 

IF  (Xrt.LT.'J.)  GO  T0  11 
XPA= ,99*X^ 

IF  (XL.GT.8.)  X L A = X M-  • 11*  ( Xfl-XL  ) 

TF  ( XL  . L E.  r . > XLA=<-. 

XA=A^ftXl (XPA,XL A) 

GO  TO  12 

11  XPA=1.C1*XM 

XLA  = X^-.C1* (X^-Xl  ) 

XA=AMAX1(X°A,XLA) 

12  CONTINUE 
7(1) =X  C I V- 1 ) 

7(2) =X (IM) 

V*  < 1 > =Y  (I*-l> 

W ( 2)  = Y ( Iv) 

YAl  = aTKN(2,W,2,l,XM 
IF(YAl.GT. ICO.)  GO  to  L c 
7(1)  = X ( 1 M 4-  1 ) 

W(  1)  = Y ( IMf  1) 

YG1=ATKN (Z,W,?,1 , X* ) 

TF  ( Y 3 1 , GT .l^C. ) GO  '0 
IF  (YP1 ,GE .YA1)  IMP=1 
TF  (Y31.LT,YA1)  1U==' 

IF  (N.tQ.l)  TUP 1=TU° 

IF  ( TJ F . NE  . I'Jrl ) ICJSF  = 1 
IF  (IUP.EO.IUFt ) Tr(j=P  =r 
CETUP.‘I 
AT  TCUbP=C 
PE' TURN 
ENO 

SU  TFO'JTIfF  CUS°  ( X , Y,  f , IC'JSt’  ,N  , i 1 , XM ) 

01  ME  NS  I CN  X(NP)  i Y (N=)  ,Z  (10)  , w(90> 

IM  = 1 

XM=  X ( 1 ) 

00  10  J = 2 > N P 
IF  (X(J).GT.X“)  IM=J 
V IF  (X(J).GT.XM)  X«=X(J) 

IF  (X-.GT.5..0P.IU.E''.  l.OR.r'.EO.NF)  G«  TO  A,) 
XL  = A MA  X 1 (X  (1)  ,X  <NC)  ) 

IF  (XM.LT.*:.)  GO  T0  11 

XPAs ,qc*yM 

TF  (XL.GT.3.)  XlA=v**-.*'1«  (Xm-vl) 

IF  (XL.LE.1.)  XLA=^. 

XA  =AMA  XI (X=A,XL  a ) 
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GO  TO  12 

11  XPA  = 1.C1*XM 

XL  A = XV  -.Cl*  ( XN- XL ) 
XA=AMAX1  (X  °A , XL  A) 

12  CONTINUE 
XA=. 9C*XM 

CO  2”  J = l,  H 
Z(INfl-J)=X<  J) 

20  MIMU-J)  = KJ) 

YA1=ATKN(Z,W,TM,1  ,v.l) 

IF  (YA1  .GT  .1:0.  ) GO  T0  <*» 
NY=NP- IM+1 
00  ?'  J = 1,NN 
7(  J)  =X  (I**  J-1  ) 

10  K( J) = Y (IMf J-1) 

YR1=ATKN(Z,W,NM,1,YA) 

IF  < Y9I.GT  .IT  . ) GO  -r  u 1 
IF  (vr,l  .GF.YA1)  Ttr=l 
IF  (Y-31.L- .Y61)  I"n=' 

IF  C N.  «"Q  . 1 ) IIP  1 = 1 1 1 = 

IF  ( IUt;  • NE  . TUP1  > I'*  LP  f = 1 
TF  (IUF.F.G  .INFH  jru*P*G 
RETURN 
40  TCUS  p=  C 
RETURN 
END 

FUNCTION  TKM(X,Y,N/,XB) 

cirtFNEicN  xnto) , y ( rr ) 

00NM ON  xx< "*01 ) , YY  (30r ) 

K1  = K-H 

IF  (X  (N) -X<  1)  ) It", 10, 1C 
10  I F ( X 3-  X ( 1 ) )2r,»2C»7'" 

20  LL  = 0 

GO  to  200 

30  IF  (X  (N)  - X 9 ) t 11  > <» 0 > 5 " 

4 0 LL  =M-K 1 

GO  TO  200 
FO  LL=1 
LU  = N 

60  IF(LU-LL-l)  ieo,  ie%Tr 
7 0 11=  (LL  + LU) /2 

IF  ( X (L 1 ) -X  9)  80,80, T 
80  LL=LI 

GO  TO  eo 
90  UJ=LI 

GO  TO  60 

100  IF(X9-XCin  12T,’?,20 
120  IF  ( X (N ) -X3  ) 139,4%  V 
130  LL=1 
LU  = N 

140  IF (LU-LL-1 ) 18n,130,lFC 
150  LI=  < LL *LU)  /2 

IF  < X (l  I ) -X  3)  160  » 1T  0»  1 ■’O 
160  LU=L I 
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GO  TO  IhT 
LL  = L I 
GO  TC  14T 

1BC  LL=LL-  UU1I /2 

IF(LL) 23,290,19  n 

inn  inutKi-N)  ?op , 2 0*’ r 

20r  00  213  1 = 1, <1 

I1=LL+I 

XX (I ) = X (It ) -XB 
21"  XY(I)r  Y (T  1 ) 

no  220  1=1, K 

CO  223  J=I,K 
C=XX  (J  + 1)-XX(T) 

IF  ( p • E 9 . . > GO  to  2-  r 
2 2r  YY  ( J 4- 1 ) = (l./p)*  (YY  ( T)  •*  X X ( J * 1 ) • Y Y ( J + 1)  * X X (I)  ) 

AT  KN=Y  Y ( K1 ) 

RETURN 

24C  ATKN=9E9. 

RETURN 

Sl)0  ft  OUT  INF  CL  (P,  X,  T,  P,  F,f"f,  'M,  0,  Tnj;  T , TIT,* I,  VJUT  ,<  ,0  A,  0P) 

REAL  M,K 

«=A9S(F*) 

TR=T /p 1 9 . 

°R  = P/1R  .7 

A=.C762*TF*TR*Tw/  ("i*  (TP+.Ri1  ) ) 

Bs.CQCi.  37U*<T(?**  . ’K  »*?QRT  (FT  /SQRT  ( F- R*  (TR  + .416)  ) 
OA=(S*L*Cl.«-TH/u)+.l''F5*r')/(r+3> 

IF(OA.LT.C.)  GO  to  1 
EX  = EXP  ( - S,  6E*M*  . 3 l'’ 

n=.C,3'■R'39*F,,  (THf  .39*0*  (l.-.7*SQRT(0A)  ) * EX)  /SORT  (~R) 

0P  = ATAN  (1.  / (C/n  A-y)  )/« 

IF(mUCT.EQ.l)  GO  ’0  2 
r=5 . E-7 

Mu  .Vu«Vi  Vu  ~ ”i  7 

IF  (NIT  .GT«l*AN0.R0n  (f 'IT, t)  • f O • L ) GOTO  3 
0F  = nP*f-  I/(RI-Oc/2  .) 

XP=X-C/OA 

RS=K*R1 

CALL  BESS  (PS,l,l,r,">L,AL) 

CALL  BESS  <RF,p ,1  ,E,PL,0L> 

AL  =X  p* CL 
9L  = XP*  BL 

AP=(PL«-9L)  / ( 0 L *-  A 1 ) 

XS=K*(RI-0p) 

NN  = P 

4 CALL  3 ESS  ( XF  , 1 , 1 , r , A X,  9X  » 

CALL  BESS  (XS,0,1,f,Cv,qx) 

OE= ( AP*=X- AX)/(AP«(3X-BX/XS)-CX*AX/X?> 

XSN=  XS "CE 

IF (A  PS (XSN-XG) .LT . r . ? C 1 ) GO  ~0  p 
XS=  XSN 
NN=NN+ 1 

IF(NN.LT.IO)  GO  TO  '■* 

5 QP=PI-XSN/K 
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3 X°=X-C /OA 

rP  = OP*ROUT  / (rOJT*r'n/?  . » 

°S  = K*i<OUT 

CALL  3LSS  (RS,l,l,r,~l  ,Al  ) 

TALL  BESS  (FS,P, t,=,CI  , El ) 

AL  = XP*  AL 
QL  = xr*  91 

AP=  (Bl-GL)  / ( A L- EL ) 

XS  = X*(F.UJT  ♦Dd) 

nn=t 

ft  ''AIL  3ES5  <X«,1,1,E  ,AX,nx) 

CALL  9CSi  (XS,0,l,r,''X,r>) 

OE  = ( ad*  ox- AX) /( fir* ( 3X-3X/XS) -Cx ♦ a x/XS ) 

X«N=X3-UE 

TF(A9S(XSN-X<?).LT.r.:ci)  GO  rO  ? 

XS=XSN 
NN=NM+1 

IP(NN.LT.l^)  GO  Tn  3 
7 CP^XSN/K-DIU"' 

GO  TO  2 

1 DP  = <499  . 

2 EPTU°N 
PNG 

COMPUTES  BESSEL  FUN"T  T QMS 
JO(X>  Tf  kjN=p  <K=n 

Ji(X)  IF  NH=1  <<  = 0 

JO ( X ) , YO  (X ) IP  *IN  = n <K=1 
Jl(X>,Yi(X)  IF  NN  = 1 <M=1 
C E=ACCUKACY 

c 

SUBROUTINE  9ESS(X,NN,KK,E,Y1,Y2> 

C Oil  M ON  / CFG  / c (IE)  ,n  (It  ) ,1 1 (1 5 ) , m ( Is)  , = 2(15)  ,92(15) ,C3 (15) , 93  < 15) 
OA'A  C, 0,01,01  /l.rEf,,-l.  37 2r8251953l26E-5, “2.38027914 

A‘‘65172F“3,-2»?2s481',ie0  2cf'1+  - -2  , -9 . 9-,  *7  6 1 141  37  31  « t-  2 , -2 . 48  275 1629 
991=13  E-l, -P.t>Rie.?4e!lF7bF‘,E  A -1  , - 1 . 3d  4 1 974°  1 ? 227  9 EC  ,- 1.  923042420  0 
C2979  £r  >-3«17  39  93984',f  187  Er  , -4 . 95  394  72 1 8919  32  F 0 , -7 . 394396611  3938 
01  EC,-l.C641471?r  °563f  El, -1 . 4355o9Sl 879629  El  0 2 13  j 07  81 91 5 78  E 

El,7. 03125= -4, 5.  196 '’198441 5 u?5  F - 5 , 2 .0  0 3 ’ 3"  30  05  34  0 0 E-l  ,4.47535192b 
FS53P3  E-1,t.9317“6344£47( 7 = -1,  1 . 237, 65  35923 051  E 0 , 1 . 7 80 426  32 1 91 66 
G 8 EC  ,2 ,42206"191417  29  E 1 , 3 . 1 *1  "*  37  469  >2  = 3 1 5 30,4.3  313733  87  39996  E0,4 
H .939C6C  19E°4771  = = , ^.9"7?43E7-31bE42  E 3 , 7 . 11 0 5'3 OF  9960  93 P EO,  8. 34425 
169279*063  EO  , 9 . 6^  6 ’ "E-  f 7477  3 1 1 F C , 1 . OE  3 , - 1 . 47  35h1  2=9765  62  E-4,-5.51 
171=0547493  76  p- 3, -7. *40666 71293 060  E- ? , - 1 . 19 7 0 37 29 31 21 53  E-l, -3. 08 
<906275315'’  34  L - 1,  - 6 .6  4126195  303642  t-  1, -1. 26237-3  12841u  32  £0,-2.194 
L '’692  = 35  :77  ? = P , - 2 . 5 F.£  r 5929  71  . 56  1 Ef  ,-r  . 498:>87812973G  3 EO, -8. 126813 
M 7lb’T14  6 1 E 3,-1.  1 6 9 = 5=  = 74*  3 66  5 =1  ,-1.6  3840445293517  E 1 , -2 . 17 5b4 22 62 
N7PC39  Ll,5.8r93~5E-3,6.0"16Po51iii4343  £ - 2 , 2 . 5 37  9 3 04  2 22 10  47  E-l, 5. 2 
0543657  6722598  £-1,9  .9*  7152  36  793175  E- 1 , 1 . 36465  45  1°  0 5 8 3 8 £0,  1.93226 
P 669598 1 16  =0 , 2 . 59 6= 5 9 f 0 8* « 1 2 2 t P , 3. 36 35 74459 946° T EO ,4.22719T0 1432 
Q 16  C E0,5.1'9e>43  1?79  1oll  LC, 6. 2*  0589  3b  266157  £0,7.410  32156793225  EO 
R, 8. 668745591007  47  r ■) , j . p C 25  96  2C  U7  *1  47  =1/ 


OATA  C2,02,C  3,93^  1 .C  E Q , 1 . *7  9204667  9b  875  E-5  , - 2 . 44  38  10  83  312  87  2 E-3 
A ,-2. 18806583455-T83  E-2,  -8 . 74  7^28  187  9J7£9  E-2  , -2 . 4 304 10  74  174  527  E-l 
9 ,-5.46997406021  7eC  E-l , -1 . P7  238 1 5b  1 3 b 9^  3 E0  , -1 . 9 i 65644218  32  43  EQ,- 
C3. 15?697?1849344  ^ ,-4 . 9 ?o 7f  7=63  <f  j 75.7  E 0 , -7 . 36 05 67 14 u 6 05 49  E3  » - 1 . 0 
060  02016  823  C 86  El, -1.4eP 63 893153652  El 2 . 0 1 54458 9357 349  £1,-1.1713 
E^E-l,  4. 50  835597826^37  F- 2 , 1 . 92 1 79  768  19 6 3 2u  E-l, 4. 3833900  40  23673  E 
F-l  ,7.83295223635590  c - 1 , 1 . 22  707  1 2 3931 1 56  E 3 , 1 . 7 1 9 6046  3 32  0 143  E0,2. 
G410877319729Q3  E r , ’ . 1 5 0 8 781 » a69 1 30  £0  , 3.98959992640356  £0,4.927037 
H 46  29  37  7 0 Z C , 5 .9  6 3 1 8 7 1 3 9290  ?7  EC , 7 . C9a  046228l33",5  E 0 , 3 . 33 161 264  21  3 1 
191  E 0 , 9 . 65  38  847  >.81  ,r|  ~ 4 Eo , 3. ! EO , -6 . 654 3 57913 15625  E-r' .93136  8675 
J 4 3 8 6 7 C-3,  -3.2'77  3r?'»T246138  r -2  , -1 . 16427  1304  4349  3 E-l , -3  . 0 3 35  2 50  86 
K 2844  7 E-l,  - 6. 556  27  "’151  E628  1 c -1  , - 1 . 24  99  44 r>14 ^ 3 8 10,-2.1770111007 
L 97  Q 3 ,-3.544547-*5-*n622  EC  , -p . 4 7 1 25 6 ?7 3 085  31  £0,-3.3  92973  "*653329 

M8  EO  ,-l.  155936741''9S25  El, -1  . 3 0 3 «.  3 373  3 6 3 7«7  El , -2 . 1 6 9 S 36  55  3 Co45 1 £ 
Ml,  2.734  37PE- 3, 7. 4 1 127 6 691 492 ''7  E-?,  2.  45 * 6425 1343 83 6 E-l,  5.1665  38  7 0 
9334203  E-l ,8. 8630  lr 3' ?9734l  C- 1 , 1 . 354  7 2 a 9’ ’5 23  3 9 E 3 , 1 . ?2 19 *53 6 938 1 
P 49  EC,  2.58787206492561  EC  , 3.  352s  37  fc  33  67  135  E 0 , *♦  . 2 159  2E  24  683 14  0 £0, 
96.17  302313182522  rr  . 23E845741E -i"  52  El  , 7 . 39  33  7227  534?i2  E0,8.b5b6 
RC658284390  EO,  l.f,nl  3r4697871  ’ £ Fi/ 

°I=3. 14159265366970 

IF  ( X . OEO)  16,2",  20 

ONE  = 1 . CEO 

K=KK 

N=  Nfi 

Z=X/?. C 

G=.5'T7215E64'3uir  3? 

IF  (N  ) 3 , 3,4 
6 = 0 N c 
IJ  = 0NE 
EMrONE 
R=  Z/cu 
U=-U*k*R 
9=S  + U 
EM=EM40NE 

IP(  A9f  (U) -E) 6,6 ,f 
Y1=F 

IF(«)2,8,2 
RETURN 
9 = 0NR 
IJ=ONr 
EM=ONE 

9= (Z*Z ) / (E  ** <E*UON'  )) 

U=-U*R 
5 = S*U 
FN=EM«-nNE 

IF ( A3S CU) -E) 1« ,7,7 

Y1=S*7 

F=Y1 

IF  ( K)  2 , 1C , 9 
C£tURM 

S=  Y1  * ( G ♦ AL  OG  < Z)  » +7-  7 

U=z*7 

EN=  2 . 

Q=OMZ 
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11  R=  <Z/EN>*<  Z/EN) * (ONE* (ONE/ (EN*0) ) ) 

U=-U*R 

S=S  + U 

0 = 0* (0NE/r  N) 

EN=EN+ONE 

IF(  A3S(U> -E> 12, 11, 11 

12  Y2=S*< 2./pII 
IF(N)14,13 ,13 

13  RETURN 

Q N=  - 1 

K=  - 1 
GO  TO  3 

14  Y2=(F*Y2-(0NE/(PI*Z)) ) / Y 1 
vi  = F 

15  RETURN 

2P  K=KK 

N=  NN 

SQ  = SORT  ( .F) 

PX  = pOS  ( Y ) 

SX=  SIN  (X) 

CZ=SO* (CX+SX) 

SZ=SO*  (SX-CX) 

X1=X*X 

R=  SORT  (2. H /(PI*X>)*  3. Cl 

Y=X*C. 1 

Z=Y*Y 

P0  = X1*PVAL  <p,C,c , ir fy ) 

00=-(X/S.P  )*EVAL(01, Dl,E,lr ,7) 

IF  ( K ) 2 2 , 21 ,23 
21  IF ( N > 2E , 2? , 25 

2?  Yl=RMPO*CZ-Ur'*c7> 

GO  TO  15 

27  IF(N)?6,24,,6 

2 4 Yl=R*(PO*:z-QO* S 7 ) 

Y2=R*(F0*SZ*Q0*CZ) 

GO  to  15 

25  Pll  = yi*E'/AL  (^2,  9p,c  ,lc  ,Z) 

Q1=(X/S.C  ) *EY  AL  (07,C3,r,lc,7) 

Yl=R*(Cl*SZ-°liJ‘f:7> 

GO  TO  15 

25  P11=X1*E\ZA|_  (''2,  9 2 » r ,lc  ,7) 

01=  (X/d  . P ) -FV*L  (C  ?,r 3,l, lr , Z) 

Y1=R*  ( PH*  SZ*Gl  *C7> 

Y2=?*(01*57-Pii *07) 

GO  TO  15 
ENO 

0 SUnKOUT  TNE  to  p y/A  LU  A*  r CONTINUED  FRA:  T I ON 

PUN^TiOf'  r Y A L ( A,5,E,N,7) 

01  ME  NS  I C N A ( 1 r ) ,e(l 5) 

ON- =1.1 

r=z+3( i) 

FV AL  =A  ( l)/0 
H=E V AL 
T = ONE 
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00  3 1=2, N 

T3=Z*B(I» 

« = A ( I)  / <C* 

S=0NF/ (ONE  *R*T) 

V=S-0NE 

T = C 

w=w*  v 

FvAL=E VAL*W 

c=o 

IF(  A3  S ( W)  -f ) 13,10,  1 

CONTINUE 

RETURN 

ENn 

SUBROUTINE  LIK°A<-  ( ? , V , T , F , F , rM  , TH , 0,  OA  , CP  ,0  EE) 

REAL  M 
H = A 63 ( F“ ) 

TR=T/519. 

PR=P/l‘*.'r 

«=. C762*TR*  V*TH/ <°R*  (TR+.-1 ) 

9=  .O'"!!  274*  ("P**  .7r  >*SUOT  ( F ) / SOP  T (PR*  ( T 5 ♦ , 41 6)  ) 
04=U*BMl.HH/0)M'f5‘n/(-;^) 

TF  (OA.LT.o.)  GC.  ’O  1 
FX=Exe(-e.66*H*«-.S10?*M) 

C=.0  0:r69*F» (THf . Sp»3*  ( 1 . - . 7 “SQ  o T ( OA)  ) *r X) /S QRT ( T P ) 
CP=  ( Cr  p / (5. 2 A 31  8 E*CH  *At*.N  (1  . /(C/Oft-X)  ) 

CO  TP  z 
OP=999 . 

RETURN 

END 

p0  R COC  65  90 
AS  ILL  USTR  AT 


USE*  *»*'' 
:D  CN  CV 


'IJjT  3' 


CALI  ST  c P 

r , r ?-» 

SU3P0UT INF  SET(N,X, Y,?X, E,D1 S.MOCfc , 3K MA X , OXM IN) 
OFEO.  C 0 Nc  I S T S OF  * WO  SL'PROMT  TnF  3U3=  «'Q GP A-S  , SE 
SOLVE  THE  INITIAL  VALUE  E r Cn  LE  M 


XGOU’EO  WITH  PARAMETERS 


ANQ  STEP, 


WHFRE  Y IS  AN  N 


0 Y/ ' 
.\jcr  ■ 


■x  = r (X,Y)  , Y(X0)  = YO 

'PR  W17H  ( [tl  0 OH3  9NCNT3 • 


;x , F,r,T  s,NOOr  , oxv  tx ,oxmi*:) 


F (N, X, Y ,DY) OFEO, 
OF  EQ  . 


GALL  SET(N,X,Y, 

WHERE 

N IS  AN  I NT  GEP  '‘'CU'STnN7  VARIABLY  , 

X IS  A REAL  VAVIAPLE,  ’H  ' I NCEf’EM  Ol'U  VA°IA3LE, 

Y IS  A PEAL  VART-ELE  N-i;c;AY,  THE  PtF  ENOENT  VmRIARlE, 

JX  IS  A -?«-  A i_  CONST  AN,  T VAPIAclZ,  tHp  CURRENT  3T^  SIZE, 

F IS  T Hr  NA.Lr  Op  SUofOTTNE  SLMP<ji»"AM  OF  TH"  PORH 
W H I " H PROVTOES  SUPl.OJlTNE  SET  Wl7H  OY/OX, 

JY  IS  A REAL  VARIABLE  i-AP'AY,  oy/CX, 

Ola  IS  A PC  aL  V A • I A BLf  cCNGTAN7  WHICH  3RO/IOE$  A TOLERANCE 
F0°  THE  A O'*  MS  - tfOULTOt  LOOAl  E FRop  CNCCX  IK  THE  VARIABLE 
STEF  SI?*-  “CT, 

HOES  IS  A LOGITM  VARIABLE  OP  CONSTANT  WHICH  WHEN  TRUE  (FALSl)PFEQ. 

INiria-rs  TmC  FIXE'  < VA  <ri*  ».  c)  ST£°  3I7r  NODE,  OF  EQ  , 

OXRAX  ( 0 X H I N ) 15  A PE  A l VAAIABlr  Ok  CONSTANT  GIVING  L03**  OFEO, 

(LOWER)  SCUDS  For  ABS(CX)  If;  THE  VARIABLE  aT£P  MOdt,  OF  EG  i 
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INITIALIZES  NEC^SSAY  VARIABLES  PRIOR  TO  ANY  INTEGRATIONS.  OFEO 

DFEQ 

CALL  STFP(N,X,Y,CX,F,OTS,MOCc,JX“AX,DXMlN)  T HEN  INTEGRATES  FROM  X OF EQ 


TO  X+OX.  UPON  EXIT  FROM  STEP,  X, 

Y,  AND  OX  WILL  HA  VF  nEEN  SET  TO  THE  I?  NFW  VALUES.  THUS  TO 
INTEGRATE  OVcR  SUCrcrClNG  STEPS,  CaL.  STEP(N,X,Y*  OX, F, 01 S, MODE, 
OXMA  X, DXMI N)  IS  EXFQUTEO  FOR  EACF  STEP  DFSIRFC. 

THE  SUBROUTINE  SUBPROGRAM  F MUST  3t  I NCLUDCQ  IN  ANY  JOB 
CALLING  SET-STtF.  IT  IS  PROVIOFQ  BY  THE  USER  AMO  may  HAVE  ANY 
LEGAL  SUBROUTINE  NAME.  THE  VARIABLES  CO FRESPONDI NG  TO  Y ANO  OY 
MUST  BE  OIMFNSIONFO  A FCRC  PR1ATEL  Y THERTN. 

CIMFNSION  Y(N) 


OFEQ 
OF  EQ 
DFtQ 
OFEQ 
OFFQ 
OFEQ 
DFtQ 
OFEQ 
OFEQ 
OFEQ 
OFEQ 
OFEQ 
OFEQ 

OF  MAX  AN)  THE  DIMENSIONS  ASSIGNED  TO  THF  FIRST  3OS IT  10 Dc EQ 
W IN  T H E FOLLOWING  DIMENSION  SJ\Ti-  OFEQ 

OFEQ 


THE  VALU 
OF  THE  VARIABLES  D ANT 
MENT  SHOULD  3E  I0FNTICAL. 


DIMENSION  0(03, B>,  W(PC,l) 

EXTERNAL  F 
LOGICAL  NDDEjCDOF 

CATA  NKmX/OC/ 

DATA  FFF/150./ 

DATA  OXF/?./ 

M = N 

TF  (M.LT.l  .OR.m.gt.  MAX)  GO  *0  20 

RS  = P IS 

C0DE=M0Dc 

HHAX=CXMAX 

HMIN=OXMIN 

R9  = F RF 

0FTA=DXF 

K- «* 

K2  = C 

00  10  1=1, M 

W(1 , 1) = Y (T  ) 

CALL  r <m,X ,Y,C( 1 ,r)  ) 

»ETU°N 

53 

F0RHAT  (BE. (lSUBPOIITI  N"  SET  H4l-  ARGUMEN" 
CALL  SYSTFM(DCD , il  ) 

RETURN 
rNTR  Y STEP 
XC  = X 
H = D X 

TF  (K.NE.o)  IF  (M-?)  r r fi  C » T 1 C 

xp  = xo 

DO  Lr'  1 = 1,  m 
W(I,R*  = H ( I ,1» 

Kl=4-K 

DO  73  1=1, y 


OFEQ 

OFEQ 

OFEQ 

OFEQ 

OFEQ 

OFEQ 
OFEQ 
OFEQ 
OFEQ 
OFEQ 
OFEQ 
OFEQ 
OFEQ 
OF  El 
OFEQ 
OFFQ 
OFEQ 
OFEQ 
OFEQ 
OFEQ 
DF  EQ 
OFEQ 
OFEQ 

OUT-OF-RANGE.  SEE  LISTING.) OFEQ 

OFEQ 
OF  El 
OFEQ 
OFEQ 
OF£Q 
OFEQ 
OFEQ 
OF  EQ 
OF  EC 
OF  £Q 
OFEQ 


.0  26 
.0  27 
.0  28 
.029 
.0  30 
.0  31 
.0  32 
.C  33 
.0  34 
.0  35 
.0  36 
.0  37 
.0  38 
.0  39 
.040 
.0  41 
.0  42 
.0  43 
.044 
.0  45 
.0  46 
. 0 n7 
.0  48 
.049 
.050 
.051 
.052 
.053 
.054 
.0  55 
.0  56 
.057 
.058 
.t  59 
.G  60 
.0  61 
.062 
.063 
.0  64 
.0  65 
.0  66 
.0  67 
• 0 b8 
.G  69 
.0  70 
.071 
.072 
.C  73 
.0  74 
.0  75 
.0  76 
.077 
.0  T8 
.0  79 


99 


rotS PAGE  IS  BEST  Q’JAllTY  PRACTICABLE 
FROM  CUrY  FURNISHED  TO  DEC  


GO  TO  203 
160  00  190  1=1, m 

W(I,  II  =H  (I  ,2* 

19C  0(1,91=0(1,'*) 

X=XC 

200  K=n 
K2  = p 

DX=SIGN(AMAX1 (fl5S(H)/BETf,HlJM) ,u> 
GO  TO  uo 
210  K2  = K 2+ 1 

IF  (K2.LT. 9)  RETURN 
K=C 

OX  = S IGN  ( AM  INI  (A  3C  ( H )*  °£T  />.,  WA  v > , H ) 

K2  = 0 

RETURN 

END 


OFEQ.l  39 
OFEQ.l 35 
OFEQ.l T6 
OFEQ.l  37 
OF  tu  .i  35 
OFEQ.l 39 
DFEa.l “0 
0F  EQ. 1 91 
0F  EQ  . 1 92 
DFEQ.l 95 
OFEQ.l 99 
OF  £Q  , 1 4.5 
OFEQ.l 96 
OFEQ.l 97 
OF EQ  .198 
OFEQ .1 99 


JJSfOFC  ////  -NO  OF  LIST  /// / 
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no  60  J = K1 ,4 
3(1,  J)-5(I  , J*l) 

W(I,?>  = H*0  (1,4) 

W(  1 , 1)  =4  (I  , 1)  4.  r*W(  I,  D 

Y(  i)  =w  (i,n 

x=xc4. e*h 

CALI  FO*,X,Y,C- d,c) ) 

no  ec  1=1, h 
W(T,3>  = H*0  (I,r) 

w(i,i)=w<l,i)*.e'MW(i,3>-rf<i,2>> 

Yd)  =wd,n 

call  f (*,x  ,v,r><  i,=)  > 

nO  SO  1 = 1,* 

W(I,4) = H»~  (1,5) 

W(I,l)=W<T,l>*W<T,4)-.‘*MI,'f) 

Y(I»=W  (1,1) 

X=XC+H 

CALL  c M,X  , Y,  0<  1 , 5)  ) 

on  ip?  l=i,* 

U(I,  1)  =W  (1 , 1)  -W  (T,4)+  . I6f  6661  666666  F7  ♦(«(!, 2)4-2. *(W(I,3)+W(I, 
1*0  (1,5 ) 1 
Yd)  =W  ( 1 , 1 ) 

K = K 4 1 

XI  = K 

CAcL  F (M,X ,Y, 0(1,5)  ) 

EETUE)' 

00  130  1=1, M 
W(I,2) =M(T,1) 

00  120  J=1 , 4 
0(I,J)=C(T,J»1) 

Nil, 3) = W (I, 2*  4. h 16 6666 666666' 76-1 *H*( 55.*0(I,4)-5S.*0(I,3)4  37 
1 ,2)-9.*C(T,l) ) 

Y(I)=W (1,3) 

x= xn  4H 

call  F (H,X  ,Y,0(1 ,6) ) 

00  140  1=1, M 

W<  I,  1)  =H (1 ,2)4. 4 166 6366666 6tt7E-l*H*( 9.*C(I,5)*19.*0(I,4) 

1-5. *0(1, 3) 40(1,?)) 

Y(T)=W  (1,1 ) 

CALL  F (“,X  ,Y,0( 1,F)  ) 

IF  (CODE)  RE-U^N 
ERR=0. 

00  15C  1=1, M 

EPRrflrtAXK  ^FS.AaS  (N(!,1)-N(I,,))/(1,.  * A *1  AX  1 ( ASS  < W ( 1 , 1 ) ) , 1 . ) ) ) 
TF  (ERP.GE.RA)  IF  (H-In-AHS(H)  ) 160,156  ,155 

K1  = 0 

IF  (RS*  E RE  . lt  • R A ) IF  ( H*  AX-*  SS ( H) ) 155,155,210 

*2  = 0 
RETURN 

IF  (K1  .NE.  3)  GO  TO  i<=  r 
CO  l’C  1=1, M 
M(I, 1) = W (1,6) 

0(  1,5)  =0  (I  ,11 
X = X P 


OFEQ.C  80 
OFEQ  .0  81 
OFEQ.O  82 
DFC1.0  83 
OFEQ.O  e4 
OFEQ.O  85 
OFEQ .0  86 
OFEQ.C  87 
OFEQ.O  88 
OFEQ.C  89 
OFEQ .0  SO 
DFEQ.CS1 
OFEQ.O  92 
OFEQ.C  93 
DFEQ.CS4 
DFEQ.C  S5 
OFEQ.O  96 
DFEQ.O  97 
OFEQ. 098 
4) ) 4H0FEQ.C  99 
OFEQ. 1 uO 
OFEQ. 1 01 
OF  EQ  .1  02 
OFEQ. 1 03 
OF  EQ  .1  04 
DFEQ.l  05 
OFEQ. 106 
OFEQ .1 07 
OFEQ.l 08 
OFEQ. 109 
.*0(1  OF EQ. 110 
OFEQ. Ill 
OFEQ. 112 
OFEQ.l 13 
OFEQ.l 14 
DFEQ.l 15 
OFEQ.l 16 
DFEQ.l 17 
OFEQ.l 18 
DFEQ.l 19 
OFEQ.l 20 
OFEQ. 121 
OFEQ.  122 
OFEQ. 123 
OFEQ.l 24 
DFEQ.l 25 
OF  EQ  .1  26 
OFEQ. 127 
OFEQ.l 28 
OFEQ. 129 
OFEQ.l 30 
OFEQ.l 31 
OFEQ.i 32 
DF  EQ  .1  33 
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B.  2 OPERATING  INSTRUCTIONS  AND  TYPICAL  INTERACTIVE  RUN 


OPERATING  INSTRUCTIONS  FOR  TERMINAL 
VERSION  OF  PROGRAM  "OPTSHE" 


ENTER  1 


Program  has  Free  Format  input 

Program  runs  only  if  "1"  is  entered. 


ENTER  FREQ,  AM.  ROUT.  TEMP  Frequency,  Angular  mode,  duct 

height  (radius)  in  inches,  tempera- 


ture in  degrees  Rankine  are  entered. 


ENTER  FM.  DSH 


Mach  Number,  Shear  Layer  thickness 
as  % of  duct  height  areeentered;  Dsh  = 0 
is  for  uniform  flow. 


ENTER  IDUCT,  NSOFT,  NIT,  IW 


Iduct  is  type  of  duct;  Iduct  = 0 for 
cylindrical,  Iduct  = 1 for  rectangular. 
NSOFT  = number  of  soft  walls; 

NIT  = 0,  IW  = 0. 


ENTER  ACC.  JLIM 


ACC  = Accuracy  of  Numical  Integra- 
tion, JLIM  = Maximum  number  of 
steps  across  duct. 


ENTER  PRESS.  RHO 
ENTER  0,  1,  2,  3,  4 


Pressure  in  psi,  density  in  lbm/ft  . 


0 - Terminates  Program;  1 - Varies 
TE;  2 - Uses  one  SE,  TE;  3 - Not 
usable;  4 - Uses  Newton- Raphson 
iteration  to  find  SE,  TE  for  a given 
RS,  XS. 


RS  + iXS  = Normalized  impedance/ETA 


For  Option  "4"  above,  input  must  be 
for  one  "SE"  and  three  "TE"’s. 


ENTER  RSD.  XSD 


RSD  = desired  Resistance  for  option  4. 
XSD  = desired  Reactance  for  option  4. 


Program  gives:  TEN  = New  guess  value  for  TE 
SEN  = New  guess  value  for  SE 


The  following  is  a sample  run  of  the  terminal  version  of  "OPTSHE.  " 
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THIS  FA®  IS  MI  W“I”mCIlCJ!S4 
^OM  COPY  FURNISHED  TO  DDC  


ENTER  1 1 

ENTER  FREQ  , AM  , ROUT  , TEMP 
ENTER  FM,DSH  -.5,0. 
ENTER  I DUCT  , f ISO FT , H I T , I W 


683.5,1 . ,40. ,540. 
0,1, 0 , 0 


ENTER  ACC , JL I M 

1 .E- 

0 6 , 1 0 0 0 

FREQ=  683.50 

AM=  1 

.00  ROUT* 

40.000  TEMP*  540. 

0 ij  i j 

FM=  - . 50 

DSH=. 

00000  ETA 

= 4.0 0 0 1 6 

I DUCT*  0 NSOFT=  1 

NIT*  0 

IN*  o .JLIM=1000 

ACC- 

IE- Of 

ENTER  0 ,1  ,2,3,4 

ENTER  SE , TE 

. 099 

—> 

SE=- . 0 0 90 0 0 0 0 

TE= 

7 . SO  ij  0 0 0 0 0 

PS*  -.25702228 

<v: 

•= 

34 1 48768 

ENTER  0 ,1  ,2,3,4 

0 

STOP 

. 1 90  CP 

SECOND 

S EXECUTION 

TIME 

. . ATTACH  ,X ,HOF , 

04 

* * * ' 

ENTER  1© 

ENTER  FREQ, AM, 

ROUT, TEMP  683.5 

,1  . ,40.  ,540. 

ENTER  FM,DSH 

-.5, 

0. 

ENTER  I DUCT, NS 

OFT, NIT, IN  0,1,0 

,0 

ENTER  HCC  , JL I M 

1 .E- 

0 6 , 1 0 0 0 

FREQ*  683.50 

AM*  1 

.00  ROUT* 

40.000  TEMP*  540. 

0 ij  i j 

FM=  - . 50 

OSH* . 

30000  ETA 

= 4.0 0 0 1 6 

I DUCT = 0 NSOFT = 1 

NIT*  0 

IN*  0 .JLIM--1000 

ACC* 

- 

IE- 05 

ENTER  0 ,1 ,2,3,4 

1 

ENTER  SE  ,TE 

. 0 0 9 

,7.9 

ENTER  STEP 

:-;E=  . fi  ft  9i.o  ojij  i.i 

TE* 

7 . 90  1 1 0 0 0 !J  l.l 

RS=  1.26041850 

•“ 

= 

cr 

_i  . 

— ■ >Ej  'Z\ 

SE*  .00900000 

TE* 

7 m SHI  III  II  INI  II 

PS*  . 93494678 

VC 

- 

4. 

1 2 1 0 1 1 54 

6E=  .110900000 

TE* 

7.  yftfiiiiifniii 

PS*  . 7267929 1 

S:'C 

- 

~7t 

23253290 

SE=  . 00900000 

TE* 

7 . y 7i inn n mi 

RS=  .53664406 

yc 

= 

•y 

52370 233 

SE*  .00900000 

TE* 

7. 86inm  omi 

P.S*  . 48869678 

xs 

= 

i . 

93961848 

SE*  .00900000 

TE* 

7.  65000000 

PS*  .41844558 

xs 

- 

1 . 

*14461341 

SE*  . 00 900000 

TE* 

7. 84000000 

PS*  . 3672746 1 

XS 

= 

i . 

0 1 442753 

SE*  .0091 OOIOM 

TE* 

7.83oooooo 

PS*  . 32985 1 89 

xs 

= 

63 1 79 1 44 

SF  = .00900000 

TE* 

7. 82000000 

PS*  . 30278764 

xs 

= 

2839 t 594 

SE*  . 00 9Qiji;ojO 

TE* 

7 . y l u ij  1 1 u ij  i i 

PS*  .23390764 

0 39 1 1463 

ENTER  0 ,1  ,2,3,4 
ENTER  SE,TE 
ENTER  STEP 
SE=  .00900000 


.009,7 

-.01 


“4536930 


64 1 789 1 4 
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mLS  JS  BEST  QUAlm  PRACriCAHLg 
■fTiiOW  COPY  PURMISHED  10  ODC 


ENTER  0,1, 2, 3 ,4 
ENTER  SE ,TE 

ENTER  STEP 

SE=  .01685000 

1 

. 0 1 685 ,7.8 
- . 0 1 

T E = 7.8 0 0 0 0 0 0 0 

RS 

.50517324 

-.35536146 

SE®  . o 1 66500 0 

TE® 

7.  .■■siiinjmin 

frs 

= 

. 49409230 

;= 

-.64531823 

SE=  .01685000 

TE® 

7. 73000000 

~T7 

= 

. I493453Lll+ 

— TTC 

;= 

- 971  9775s 

SE=  .01685000 

TE® 

7. 770 no mii ii 

RS 

= 

.50343322 

X c 

;= 

-1 .22093685 

SE®  .01685000 

TE® 

7 . 760 0 0 o 0 0 

RS 

= 

.52500344 

!:vE 

;= 

-1 .51342697 

SE®  .01685000 

TE® 

7. 75000000 

RS 

= 

. 5600991 5 

xs= 

-1.831 14296 

SE®  .01685000 

TE® 

7. 74000000 

RS 

= 

.611 96698 

V •- 

-2.1 6707439 

SE®  .01685000 

TE® 

7.7300 0 0 0 0 

RS 

= 

. 6857990  2 

xs= 

-2. 5361 6664 

S E = .01 6 8 5 0 0 0 

TE® 

7. 72000000 

PS 

= 

. 78987267 

xs= 

-2.95135629 

SE®  .01685000 

TE® 

7.710 0 0 0 0 0 

RS 

= 

. 93765053 

XS 

-3.4301 1309 

ENTER  0 ,1  ,2.3,4 

4 

ENTER  SE,  TE’S 

. 0 1 68 

5 !» / • y :» « / 9 * 

■7  7fl 

ENTER  RS ■ S , XS’ 

S. 5051 

73,. 494092, 

. 4934 

53, 

-.35536, -.645 

lL 

-.9 

31918 

ENTER  RSD,  XSD 

.5,-. 

4 

TEN®  7.7985104 

SEN®  .016881 

94 

ENTER  0,1 ,2,3,4 

2 

ENTER  SE ,TE 

. 0 1 68 

3194,7.7985 

1046 

SE®  .01688194 

TE® 

7.79851046 

RS 

= 

. 50 3730 65 

XS 

- . 3990 3330 

ENTER  0,1 ,2,3,4 

1 

ENTER  SE , TE 

. 0 t 68 

8194,7.8 

ENTER  STEP 

- . 0 0 1 

SE®  .01638194 

TE® 

7 . 80  0 0 0 0 0 0 

RS 

= 

.5061 1084 

= 

- . 3554 1 398 

SE®  .01688194 

TE® 

7 . 7990 0 0 0 0 

RS 

= 

. 50 45 1 982 

XS 

= 

- . 38472238 

SE®  .01683194 

TE® 

7. 79800000 

RS 

= 

.50303754 

XS 

-.41394482 

SE®  .01638194 

TE® 

7. 79700000 

RS 

= 

.50166318 

xs 

= 

- . 44308723 

SE®  .01638194 

TE® 

7 . 7960  0 0 0 0 

RS 

= 

. 50  0 39598 

v< 

= 

-.47215555 

SE®  .01688194 

TE® 

7 . 7950 0 0 0 0 

RS 

= 

. 49923526 

VC 

= 

- . 50 1 1 5566 

SE®  .01688194 

TE® 

7. 79400000 

PS 

= 

.49818042 

XS 

= 

- . 53009341 

SE®  .01688194 

TE® 

7 .7330  0 n 0 IT 

RS 

= 

. 49723093 

xs 

= 

- . 55897482 

SE®  .01688194 

TE® 

7. 74'piii.iriuft 

RS 

= 

. 49638635 

.'vl 

- . 58780509 

SE®  .01683194 

TE® 

7. 791 00000 

PS 

= 

. 4 ,9564629 

XS 

= 

-.61 6590 58 

ENTER  0 ,1 ,2,3,4 

4 

ENTER  SE,  TE’S 

. 0 1 68 

8194,7.799, 

^ . 798 

!•  • 

797 

ENTER  RS-’S,  XS  •" 

5045 

1 982 , . 50 30 3 

-54 , . 

50  1 

6631 0 ,- . 384/2 

n “ 

.41 

3944 , 

- . *ri  iuw 

ENTER  RSD,  XSD  .5, -.4 

TEH=  7.79347160  SEN®  . 0 1 675477 

ENTER  0 .1  ,2,3,4  2 

ENTER  SE  , TE  .01 675477 , 7 . 79347 1 60 


SE®  .016754! 

77  TE®  7.79847160 

RS® 

. c-, 111111116.77 

XS- 

- . 3999364 

ENTER  0 ,1  ,2 

,3,4  0 

STOP 

3.547 

CP  SECONDS  EXECUTION 

TIME 
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APPENDIX  C 

D'ALEMBERT  TYPE  SOLUTION 


Isolation  of  modal  coefficients  for  forward  and  backward  traveling 
acoustic  waves  in  a constant  area,  solf-walled  circular  duct  containing  a 
uniform  flow. 

C.l  NOTATION 

z axial  coordinate 

P complex  fluctuating  pressure 

r radial  coordinate 

R duct  wall  radius 

o 

h normalization  parameter  h = R for  cylindrical  duct 

r r 

y normalized  radial  coordinate  y = — = — — for  cylindrical 

, o 

duct 

M mean  flow  mach  number 

, . , , , 2nf  w 

k a constant  proportional  to  frequency  k = = — 

w circular  frequency 

C speed  of  sound 

k complex  axial  propagation  constant 

z 

X normalized  axial  propagation  constant;  eigenvalue  of 

i kz 

Equation  2;  X = 

n the  angular  (spinning)  mode  number 

Pc 

A normalized  wall  admittance;  A = — 

Z 

Z wall  impedance;  Z = ^ 

w 

v radial  acoustic  velocity  in  wall  liner 

w 

b modal  coefficient 

e 

Primes  denote  differentation  with  respect  to  the  argument. 

Supe  r sc  r ipts 


represents  modes  and  modal  constants  associated  with 
acoustic  waves  propagating  in  the  same  direction  as  the 
orientation  of  the  axial  coordinate  frame  (forward  traveling) 
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represents  modes  and  modal  constants  associated  with 
acoustic  waves  propagating  in  the  opposite  direction  as 
the  orientation  of  the  axial  coordinate  frame  (backward 
traveling). 


C . 2 INTRODUCTION 

Derivation  of  the  cross-orthogonality  condition  for  the  cylindrical 
duct  and  isolation  of  the  modal  coefficients  for  forward  traveling  mode? 
will  be  presented  in  detail  on  the  following  pages.  The  method  of 
solution  can  be  extended  to  rectangular  and  annular  ducts.  The  ortho- 
gonality condition  for  modes  traveling  in  the  same  direction  will  be 
presented  here  again  for  comparison  to  the  cross-orthogonality 
condition. 


C . 3 GENERAL  EQUATIONS  (Linear  Acoustics) 


The  governing  partial  differential  equation  for  a constant  area 
cylindrical  duct  with  a uniform  flow  is  known  to  be  (from  variables 
separable  type  solution) 


2m  ap 

C d z dt 


2 S2P 
+ (1-M  ) = 

dZ 


l dP 
r dr 


in 


where  the  angular  dependency  has  been  assumed  to  be  of  form  P (9)  » 

cos(nQ).  The  usual  method  of  solving  the  above  equation  is  to  assume 

p (r,  z,t)  or  p(r)  exp  (i(wt-k  z))  [4.8],  where  k = kX;  substitution  of 

z z 

P (r,Z,t)  into  1 reduces  it  to  Bessels  differential  equation: 


" 1 ' 2 

P(r)  + -P(r)  + k 


2 2 n 

1-X  (1-M  )-2MX-- 


(kr)  J 


P(r)  = 0 


(2) 


in  which  P(r)  must  satisfy  the  boundary  condition  at  the  wall,  namely 


P (r) 
P(r) 


(1-MX)  A 


[continuity  of  particle  displacement] 


(3) 
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C . 4 MODA  L SOLUTION 


Assume  that  the  pressure  in  the  duct  has  a modal  solution  consisting 
of  forward  and  backward  traveling  modes:  (refer  to  Figure  C.  1)  hence, 


00  + 

t->,  r , + _ + ik(ct-X.  z)  - - ik(ct+X  z) 

1 +biPJ!'  1 


(4) 


where  P(r,  z , t)  satisfies  the  partial  differential  Equation  1 and  the  wall 
boundary  condition.  Substitution  of  Equation  4 into  the  partial  differ- 
ential Equation  1 yields  the  following: 


[ ^ ^ b/p/eik,C,+  X/Mj-  2Mk2  - S‘b1-pi-.ik<CttX/"I| 

)k2  E|k/2b/Piteik<C*-Xi,*»  4 X1-2b1-pi-eik(C,tXl'Z,J  4 zjb/  (p^ip;  -^p;)elk,£,-X/,» 


- (1-M 


(5) 


Now  group  +'s  together,  -'s  together  in  Equation  5 to  give 


Zb. 


+ Zb, 


k2p/  - 2MkVp£+  - (l-M2)kV  +P/  + ^P/-^P 

r 


2 " 1 2 

k2p/+2Mk\-p/-(l-M2)k\-  +p;+Ip;.2jp 

r _| 


4ik(ct-X£  Z) 

(M 

eik(ct+X/z)  = Q 


Equation  6 is  rearranged  to  get  Equation  7 


+ Zb , 


Pi++ 


' i 2 2 

•^Px++ [k2(l-(l-M2)X+  )-2Mk2X't-I^.  ]p 

' V 


i(wt-kX  z ) 


P*  + 


^Px'+fk2(l-(l-M2)X£"  )+2Mk2X£‘.^  Jp 

> r 


(7) 


i(wt+kX'z) 

e =0 


The  differential  equation  associated  with  the  b , coefficient  is  just  the 
governing  acoustic  differential  equation  for  each  mode  propagating  in  a 
forward  direction  (Equation  1) 
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Normalized  Wall  Admittance  A - pc  -p- 


n ri  i ~ i ~t  i i/t  i i:  n::a.i7:.i...L).  i ..u  . i.  i tith 


z*.*- 


R 


2b  +P  + 

a a 


2b.  P, 


► Z 


forward  moving  modes 


backward  moving  modes 


v = radial  acoustic  velocity  at  wall 
w 


Az  = - A z* 


_r 

h 


Figure  C.  1 The  d'Alembert  Problem 
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. +"  i + 

••p<  +7pi  + 


2 i 


2 2 +2  2 + n 

k ( 1 -( 1 -M  )\,  )-2Mk  X - — 

Z z L. 

r 


P = 0 


(8) 


and  satisfying  the  boundary  condition  iA  = 


-p,  (h) 


k(l-MX^+)2p/(h) 


(9) 


The  differential  equation  associated  with  the  b coefficient  is  the  governing 

AJ 


acoustic  differential  equation  for  each  mode  propagating  in  a backward 
direction  (in  Z*  direction  (Figure  1),  M is  negative  W„  R.  T.  Z*  direction) 


P l (r>  +7P£  (')  + 


2 2 -2  2 - n 

k (1-(1-M  )X^  + 2Mk  X^  — 

r 


P*(r)  = 0 


(10) 


and  satisfying  the  boundary  condition  iA  = 


-p/V) 


k(l  + MXx")2P^'(h) 


(11! 


(M  is  assumed  to  be  positive  in  Equation  7). 


Modes  traveling  in  the  same  direction  must  satisfy  Equation  8 and 
boundary  condition  9»or  Equation  10  and  boundary  condition  11.  By 


multiplying  Equation  8 by  rP  dr  and  integrating  over  the  duct  cross- 

K. 


section  yields  the  following 
"h 


rP. 


K 


p/"+7p/’+(k2(1-(1-M2,x/2)  -2MkV-%)p/ 


dr  = 


rPK  (0)dr  = 0 


(12) 


+ +"  + *' 

After  integrating  by  parts  rP  P and  P P in  Equation  12 

K l K.  Z 


[PK*rP/  j j rPi'PK  Hr+^  rPR*  2)-ZMk2Xt4-^|pt,dr=0 


again  integrating  by  parts 


f + ' +' 

JrPl  PK 


dr  to  get  Equation  13 
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* * rp,+,<h>  pK+'<h>1  fh  + - +..  i *. 

0=hPK,h,P',hfe‘  V^+iorP‘  [P*  +'PK  + 

Xj 


|k2(l-(l-M2)\£+2)  -2Mk2Xx+-^jPK+|dr  = 0 

But  P + also  satisfies  Equation  8 and  boundary  condition  9,  hence 
K 


+ M 1 +'  2 2 +?  ? 4- 
PK  +7pk  + k ( 1 -( 1 -M  )XK  2)-2Mk2XK 


2q 

n 

~~Z 
r J 


P +=0 
K 


Multiple  Equation  14  by  rP  dr  and  integrate  over  duct  radius  to  get  the 

Xj 

following: 

/hrP/[PK+"+7PK+'+  [k2('-(l-M2)XK+2)-2Mk2XK+-4]  PK+]dr  = 


rP  (0)dr=0 

X 


Subtracting  Equation  15  from  Equation  13  gives  the  following  relation- 


ship: 


+_+  rp/,(h)  pK+<h> 


0=hPk  (h)P£  (h)  — ^ 


Pt  (h>  PK  (h) 


2Mk2(X  +-x/)]  dr  = 0 

JC 


+ + i 2,.  +2  . +2, 


rPK  P£  k ( 1 -M  -\t  ) + 


from  boundary  condition  at  wall,  Equation  % it  is  seen  that 

P/(h)  +2  PK+(h)  +2 

= -iAk(  1 -MX.  ) and  = -iAk(l-MX  ) 

Pi  <h)  PK  (h) 

Substituting  above  expressions  into  Equation  16  gives  Equation  17: 


0=hPK+(h)P£+(h)(-iAk)  2M(Xk+-Xa  + )-M2(Xk+2-X£  + 2)  + 


/W1 Pl  + [' 


k2(l-M2)(XK+2-X£+2)+2Mk2(XK+-X^')  dr 
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factor  out  (X^+-X^  ) 


(XK+-X/)J  k2(l-M2)(XK++XA+)+2Mk2  J (rPK+P/)dr- 


iAkhP  +(h)P  +(h)  2M-M2(X  \x,+ 
K Z i\  Z 


Equation  18  is  the  general  orthogonality  condition  between  modes  traveling 

with  the  flow,  if  XT.  A.  then 
K a 

/\p  +P  + iAkhPK+(h|P/(h)[-2M+M2(XK++x/|] 

J K l dr  + ~ p 7 7 7 ~ 0 (19) 

k (1-M  HX^  +X  )+2Mk 

lor  modes  traveling  against  the  flow,  the  orthogonality  condition  is  again 
Equation  18  with  M replaced  by  -M 

if  XT,  A . then 
K l 

f h iAkhP  "(h)P  "(h)[  + 2M+M  (X  " + X ')] 

rP  -P  'dr  4 ~ ■ — — - 0 <201 

Jo  K k [(1-M  )(X._  +X  )-2M] 

tv.  £ 

Equations  19  and  20  involve  relationships  between  modes  traveling  in  the 
same  direction.  To  get  a relationship  between  modes  traveling  in 
opposite  directions,  again  start  with  the  governing  acoustic  differential 
equation. 


For  positive  traveling  modes: 


P +"+-P  +'+  k2(l-(l-M2)X  /2)-2Mk2X.+ 
l r l Si  l 


2' 

n 

2 

r - 


p/=° 


For  negative  traveling  modes: 


Pk"'+7Pk"'+  '‘2<Ml-A*K'V2MkV-n2  PK‘  = 0 

L r J 
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p 


rP. 


PK_"+r  PK’,+fk2(1-(1-M2)XK'2)  + 2Mk2xK"  dr  = ° (24) 

r -I 


Subtract  Equation  24  from  Equation  23  to  get  Equation  25. 


* hPK'(h)P£+(h) 


■“P  +'(h)  P "'(hfl  fh  r 

— rpKpi  ;k  <‘-M  ><V  -h  1 


LP.'(h)  PK  (h)J  Jo  K * L 


2M(Xk'  + X£  > 


dr=0 


(25) 


Substituting  boundary  conditions  of  Equations  9 and  10  into  Equation  25 
gives  Equation  26. 


hPK"[h)P£  (h)( -iAk) 


(1-mxx+)2-(1+mxk-)2 


Jo  rF>K  P£  k 


(1-M2)(Xk‘-\^  + )-2mJ  (XK‘+X£  + )dr=0 


Further  simplifying  Equation  26  will  give  the  expression  below. 


(26) 


<W^2 


(1-M2)(Xk'-X2  + )-2M 


-J  J o 


rP  P dr  + 
K l 


iAkhP  (h)P  (h) 

i\.  Xj 


M2(X  _-X  +)+2m|  > =0 
K l j ' 


Since  in  general  (\  + \ ) is  never  zero,  the  term  inside  the  brackets 

K Xj 

must  always  be  zero. 

2^(1-M2)(Xk'-X£+)-2m"|  J rPK'P£  + dr  + 


iAkhlM  (XK  -\£  )+2Mj  PR  (h)P^  (h)=0 


(27) 
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Two  relationships  now  exist;  one  between  modes  traveling  in  opposite 
directions  (Equation  27),  and  one  between  modes  traveling  in  the  same 
direction  (Equations  19  and  20).  It  must  be  shown  now  that  using  these 
relationships  the  modal  coefficients  can  be  isolated  independently  of  one 
another,  given  an  initial  pressure  and  axial  pressure  gradient  distribution. 

C . 5 ISOLATION  OF  MODAL  COEFFICIENTS 

The  problem  now  is  to  utilize  Equations  19,  20  and  2 7 to  isolate  the 

-f-  *{-  — — 

modal  coefficients  involved  in  specifying  the  pressure  g(r)  = £(b^  +b^  P£  ) 

and  the  axial  pressure  gradient  — = H(r),  at  some  arbitrary  z , taken 

o z u 

to  be  zero  for  simplicity. 


= *o  = ° 


SP  2=*o=° 


No  £ low 


= -ikT(\,  b,  P,  "b  "p  ■) 


For  the  no  flow  condition,  the  modal  pressure  distribution  for  the 
j forward  and  Z**1  backward  traveling  waves  are  the  same;  the  ortho- 
gonality  condition  is  just  J rP^Pndx=0  (superscripts  are  ne/lected  on 
modal  pressures).  To  solve  for  the  coefficients  b^  , b^  , the  inner 
product  is  formed  between  g and  mode,  and  h and  Z mode,  to  give 
two  equations  in  two  unknowns.  Solution  is  straightforward  for  b^  , b^  , 
(conventional  orthogonality  exists). 

Uniform  Flow 

For  uniform  flow,  first  express 

Ib/p/=g-xb(-p(-  <21 


and 


*hW=  f+sxi'vpi' 


(29) 


Restating  the  orthogonality  condition  for  forward  traveling  modes  Equation  19 

h 


(l-M2)(Xn++X^  + ) 


m / rP  +Pa++iAhkP  +(h)p/(h) 
1 n X n X 

o 


M2(X  ++X  +)-2M 
n Z 


= 0 

(30) 


By  multiplying  Equation  28  by  [(1-M2)X  + + 2M]P  +rdr  and  integrating 


over  duct  height  h results  in  the  following: 

'h 


£ 

X 


(l-M2)Xn++2M 


(l-M2)Xn++2M 


+ + 

P P„  r 

n X 


h [ h 

grP  + dr-£b  / P rP  dr 
B n i 1 X n 

o J o 


(31) 


The  above  L.  H.  S.  of  Equation  30  inside  braces  looks  like  part  of  the  term 

associated  with  the  integral  term  in  Equation  19  (the  orthogonality  condition 

for  forward  traveling  modes).  To  complete  the  integral  term  in  Equation  19, 

(1-M2)X  + fhrP  +P  +dr  must  be  added  to  L.  H.  S.  of  Equation  3 1 for  each 
X Jo  X h 

(X);  to  do  this  operation.  Equation  29  is  used  (pressure  gradient  equation). 

2 + 

Multiplying  Equation  29  by  (1-M  )rP^  dr  and  integrating  over  the  duct 
height  yields  Equation  32. 


rP  +dr  \ ( 1 - M2 ) 


11  J 


(32) 


Adding  Equation  31  and  32  forms  the  integral  term  on  L.  H.  S.  of  Equation  19. 


X £ 


(l-M2)(Xn  + + X^+)+2M| 

-O  o 


\ r 


P +P„  + rdr>  = 
n X / 


(1-M2)X  + + 2M 
n 

-l^o 


gP  +-Zb”p”P  + 
6 n X X h 


hr  iHP 


rdr  + ( 1 -M  ) 


n _ - - + 

+ Eb  P„  P 

k X X n 


rdr  (33) 
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To  make  the  L.  H.  S.  of  Equation  30  reduce  to  a single  term,  (when  l-n), 

P 4(h)P  +(h)[M2(X  + X +)-  * '■  has  to  be  added  inside  the  brackets,  thus 

k n l n l 

giving  the  orthogonality  condition  for  forward  traveling  modes  as  in 
Equation  19  for  all  terms  except  £ = n.  Adding  ■' P^  (h)P^  (h)[M  (X^  +X^  )-2M] 
inside  the  braces  of  L.  H.  S.  of  Equation  33  is  equivalent  to  adding 


E b*+  rp  +<h>p/(h)i 

l l k n l 


M2(X  ++X,  + )-2M 
n l 


to  both  sides.  Carrying  out  this  operation  then  allows  the  reduction  of  L.  H.  S. 
to  one  term,  hence,  when  4 = n (since  all  others  are  zero  by  Equation  19) 
resulting  in  Equation  34. 


(34) 


At  this  point  it  looks  as  if  whatever  is  gained  on  L.  H.  S.  is  made  more 
complicated  on  the  right  hand  side  of  Equation  34,  the  second  orthogonality 
condition  (for  modes  moving  in  opposite  direction)  will  allow  the  reduction 
of  Equation  34  to  a simple  relation.  The  orthogonality  condition  for  modes 
traveling  in  opposite  directions  is  Equation  27. 


(l-M2)(Xn'-\£  + )-2M 


_ +.  iAh 

rP  P„  dr  + — — 
n £ k 


(M2(X  ~ -X  + )+2M 
n j l 


P (h)P  (h)=0 
n l 


(27) 


Now  group  summations  (£)  on  R.H.S.  of  Equation  34  together  giving 

Ji 

Equation  35. 


( 


f 


(35) 


f i Th  2 . r h 

L.H.S.  (34)=  ' (l-M2)Xn++2Ml  I gPjrdr  + ( 1 -M  )£  i HPjrdr  - 


fh 


Eb/  ’(i-M  )(\--0-2MjJo  Pn  P/rdr  +5bi  ~ lM  ,Xn 


’lAh  M2(X  +1  )-2Mj  P (h)P,  (h) 

l J n l 


The  middle  term  of  the  R.  H.  S.  of  the  above  equation  is  the  integral  term 
associated  with  the  orthoganality  condition  of  Equation  27;  by  adding  and 
subtracting  the  proper  boundary  condition  terms  to  the  R.  H.  S.  of  the  above 
equation.  Equation  27  can  be  formed,  thus  eliminating  these  terms. 

Hence,  most  add  P (h)P  (h)-^— [M^(X  -X  + ) + 2M]  within  the  brackets 
n X k X n J 

of  Equation  35,  subtract  outside  the  brackets  to  get  Equation  36 


f 1 jh  + 2 i I 11  + 

L.H.S.  (34)=  J SPn  + rdr  + (1'M  )-J  HPn  rdr  + 


4.  . r 2 - * i r 2 

r b ~ ( P (h)P,  (h)^  M (X  -X  ) + 2M  + ! (1-M 
l l \ n 1 k [ In  j [ 


i^+r(b  + ^M2(X  ++X  *)-2M  P *(h)P  +(h)-b  " 
k I \ 1 L n l jn  1 X 


H\  -XB  )■  2M| 


a o 


P P,  rdr) 
n X [ 


(36) 


M 2 ( X * -X  +)*2M 
1 n 


Pn  (h,PX  (h> 


Since  the  middle  term  of  Equation  36  is  just  the  cross-orthoganality 

condition,  (Equation  27),  the  middle  term  drops  out  completely.  Also  the 

summation  of  the  boundary  condition  terms  is  over  X,  hence,  P +(h)  can 

n 

be  pulled  outside  the  summation.  Hence, 
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L.H.S.  (34)=j(l-M2)Xn+  + 2M  / gP^rdr  + HPn  rdr  + 


i^-P+(h)<E  b.+P,+(h)+b  "P'(h)  (M2X  +-2M)  + 
k n 1 ' \ £ i i an  n 


S M2  x/b/p/-x;wh) 

L 

but  g(h)  = Z (b^P^hJ+b/P/W) 


and  ^H(h)-E(X£  b£  P£  -X£  b^  P^  ) 


pressure 


at  wall 


i_  9P  / wall 

k az/ 


Therefore  Equation  37  reduces  to  the  final  form,  Equation  3 8. 
bn+  | (l-M2)2Xn+  + 2M  ^ rPn+Pn+dr+iY1  Pn+2(h)  M2(2Xn+)-2M  j 
(l-M2)Xn+  + 2M  gPn+rdr + (1-M2)^J"  Hpn  rdr  + 


— P +(h)  (M2X  +-2M)g(h)+— ^-H(h) 
k n n k 


if  r is  normalized,  y = ^ > then 


b + (l-M2)2Xn++2M  f ypn+pn  + dy  Pn  M (2Xn  )_2M 

n l n J o L 

(l-M2)Xn++2M  j gpn+ydy + Hpn  ydy  + 


— P +(1)  (M2X  +-2M)g(l)+i¥-  H(l) 

hk  n n K 

- 
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The  relation  for  can  be  arrived  at  using  similar  manipulations  that  were 

used  to  get  b + . The  result  is  stated  beiow. 
n 


b "<  (1-M2)2X  ~-2M  / yP  "P  ‘dy+^-P  "2(1)  I M2(2X  ")+2M 
n j [ n J J n n hk  n [_  n 


2 i f i _ r i 

(l-M  )X  - 2M  gP  ydy  - ( 1 - M )~  HP  ydy  + 
n n 7 7 k n 7 

J;o  Jo 


hkP„’(1)  (M\-+2M)g(l)-iH-H(l) 


The  solutions  for  b , b are  given  below, 
n n 


|^(  1 - M2)X^  + + 2m|  ^ gHn  + ydy  + ( 1 - M2  ^ Hpn  + ydy+ ££  pn  + ( 1 ) 8< 1 >[  M2X^ -2M]+ M2 

2 I ++m]  ( p'p  +ydy  + p V)p  +(1)[m2x  +-m]  ) 

\L  n fnnhkn  n n u 


(l-M  )X  -2M 


/ «Pn' 
Jo 


ydy  - ( 1 “ / HPn  VdV +hkpn  0)  g(*)(MZXn  *2M)-  ^ 


2<  (1-M2)X  '-M  P 'P  "ydy  4 ■“  P "(1)P 
\\  n i n n hk  n i 


n'(l)[M2Xn'tM]) 


where  M is  the  Mach  number  relative  to  the  z axial  coordinate  of  Figure  1. 

C.6  DISCUSSION 

The  significance  of  Equations  41  and  42  is  that  the  modal  coefficients 
can  be  found  independently  of  one  another  instead  of  solving  a truncated 
system  of  linear  equations  as  done  by  Zorumski  [ iq  ]•  Kraft  and  Wells 
[ 16  J developed  an  adjoint  function  which  was  othoganal  to  all  modes, 

except  one,  which  were  traveling  in  the  same  direction.  This  adjoint  function 


! 

! 


allowed  each  modal  coefficient  to  be  evaluated  in  terms  of  the  pressure 
distribution  only.  Kraft  [ 20  ] did  not  generalize  the  adjoint  method  to 
include  both  forward  and  backward  traveling  modes,  but  relied  on 
Zorumski's  technique  in  determining  the  modal  coefficients,  with  the 
adjoint  method  being  invoked  to  assure  that  the  modal  expansion  is  valid. 

The  only  problem  with  the  adjoint  method  is  that  the  pressure  alone  is  not 
sufficient  to  completely  specify  the  coefficients  in  a duct  where  reflected 
waves  exist;  hence  that  method  must  be  modified. 

To  match  an  arbitrary  pressure  distribution  and  an  arbitrary  axial 

pressure  gradient  distribution  both  sets  of  modal  coefficients  are  necessary. 

If  the  b ~'s  are  all  zero  (no  reflected  waves)  then  the  pressure  and  pressure 

l 

gradient  cannot  both  be  arbitrary;  if  the  pressure  distribution  is  specified, 
then  the  b +'s  are  completely  determined  [ 17]. 

Xj 

One  may  think  that  this  method  of  isolating  the  modal  coefficients 
which  requires  the  axial  pressure  gradient  instead  of  the  axial  acoustic 
velocity  is  limited  if  the  acoustic  velocity  is  specified.  To  circumvent  this 
apparent  problem,  one  need  only  imagine  that  the  duct  walls  are  rigid  or 
hard  so  that  the  wall  boundary  condition  is  the  radial  acoustic  velocity  is 
zero  at  the  wall.  In  that  case  the  modal  pressures  are  again  orthogonal  in 
the  usual  sense,  and  the  hard  wall  modal  coefficients  are  easily  computed. 
Having  computed  the  coefficients,  one  may  then  compute  the  axial  pressure 
gradient  which  is  needed  in  the  solution  of  the  soft-wall  modal  coefficients. 
Hence,  the  apparent  problem  is  solved;  namely,  converting  the  axial 
acoustic  velocity  to  axial  acoustic  pressure  gradient. 

One  thing  to  be  pointed  out  is  that  the  expression,  Equation  41,  for 
the  modal  coefficients  for  the  forward  moving  modes  is  the  same  as 
derived  in  [ 3 ].  The  expression,  Equation  47,  for  the  modal  coefficients 

of  the  backward  moving  modes  is  the  same  as  Equation  41,  except  that  M 
is  replaced  by  -M,  and  H(r)  is  replaced  by  -H(r).  The  reasoning  for  this 
is  that  the  backward  moving  mode  "see's"  a flow  and  axial  pressure 
gradient  of  opposite  sign  as  that  for  a forward  moving  mode. 
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The  method  of  isolating  the  modal  coefficients  assumes  that  all  the 
axial  Eigenvalues,  X 's,  and  radial  pressure  distributions  are  readily 

Xj 

obtainable  if  need  be,  although  usually  only  the  first  few  modes  are 
necessary  to  get  a good  approximation  to  the  initial  pressure  and  axial 
pressure  gradient  profiles.  A further  consequence  of  the  orthoganality 
conditions  derived  previously  is  that  any  axial  Eigenvalue,  X of  Equation  2 
which  satisfies  the  wall  boundary  condition  must  be  considered  as  an 
admissable  mode.  Hence,  any  "strange"  modes  [ 12  ] and  [20]  must 
be  included  in  the  set  of  basis  functions. 

This  method  of  isolating  the  modal  coefficients  is  easily  adapted  to 
multi-sectioned  duct  theory  [ 10  ],  Figure  C.2,  where  finite  discontinuities  in 
duck  wall  impedances  occur.  If  constraints  are  put  on  the  modal  coefficients, 
such  as  terminating  the  duct  so  that  no  backward  moving  modes  exist 
(b^  's  are  zero  at  exit),  simple  linear  equations  can  be  developed  to 
iterate  to  the  correct  values  of  the  modal  coefficients  at  the  duct  inlet  that 
will  meet  the  exit  condition.  Once  the  coefficients  at  the  duct  inlet  are 
known,  one  can  proceed  down  the  duct  to  each  wall  impedance  discontinuity 
and,  by  matching  the  pressure  and  axial  pressare  gradient,  proceed  past 
the  discontinuities  to  the  duct  termination.  Using  an  acoustic  energy 
expression  [21  ] the  energy  flux  at  any  plane  in  the  duct  may  be  computed 

to  determine  the  overall  attenuation  up  to  that  point.  The  theory  is  used 
in  Program  CO  detailed  in  Appendix  E. 

C . 7 SUMMARY  OF  UNIFORM  FLOW  ORTHOGANALITY 

An  orthogonality  condition  for  modes  traveling  in  opposite  directions 
was  derived.  Using  this  cross-orthoganality  condition  and  one  previously 
derived  [ 3 ],  an  equation  was  developed  which  allows  each  modal 

coefficient  to  be  evaluated  independent  of  all  other  modes  when  the 
pressure  and  axial  pressure  gradient  are  known.  The  method  can  be  used 
to  predict  the  overall  attenuation  in  a duct  with  several  different  wall 
impedances. 
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Figure  C.2  Multisection  Duct  with  Finite  Discontinuities 

in  Wall  Admittance  and  a Uniform  Parallel  Flow 


I 
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APPENDIX  D 


CONSTRUCTION  OF  SHEARED  FLOW  ADJOINT  EQUATIONS 


[A]  = [c^j]  i,J=l,2,3  then  from  Equation  14 


«,,*0  »,,=°  «,,=<  r+i^—H  ) 


2 m 


11 


12 

2M 

a22~  " 2 
(i-M  : 


“33  M(  } 


13 


( ) 


O'  - 


21  ' ' vr  M 
•2ipckM' 


_ -M  )' 


23  k2(l-M2)M 


( ) “31"  pckM  °32 


= 0 


The  notation  ( ) means  "operating  on"  and  primes  denote  differentiation 

# T 

with  respect  to  the  argument.  To  determine  the  adjoint  operator  or  , a 

1J  1J 

must  first  be  found.  From  Equation  23  it  is  apparent  that  if  Of.  is  not  a 

T lJ 

differential  operator  then  a.=a.„.  Thus 

iJ  iJ 


aT  =o  a1  =1(  ) =0  o'"1  = zzz—t  ) - _r.-r— / \ 

11  12  ' ' 13  22  . , . .2.  23  . 2,  ° [ ’ 


T 

*12 


T 

*13" 


T _ -2M 

*22 


(1-M  ) 


T _ -2ipckM 1 

. 2 , 2 
k (1-M  )M 


T T 1 

<*  = o a = — ( ) 

32  33  M'  ’ 


T T 

Only  and  l are  now  unknown. 

From  the  definition  of  the  transpose.  Equation  23 
Ro 

(“ijyj)zidr  = j V“u  zi,dr " [BC) 

O J o 


(D.  1) 


Putting  a ^ into  the  abov< 


.1  2M 


2 m1 


, , , X 1VI  . . , , U X 1 1 

ryi  +(7-ir)yi +(k  -T^)yi 


k2(l-M2) 


r r0 


Z2dr=/  yl(Q,21  Z2>dr+[BC]  (D.  2 ) 

J o 

By  performing  integrations  by  parts  on  the  above  equation  it  can  be  shown  that 
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, I 2M’  , , 2 m 

-rr>y,  *<k  -~j)v 

t M 1 TC 

kZ(l-M2) 


V‘  I 'kZ(l-M2) 


r M 2 , r — dr 

kZ(l-MZ)  I kZ(l-M2)  2J 


2..  .2..  M 2...  .2 


k (1-M  I \k  (l-M  )/  \ k (1-M  ) 
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r ' M I — 


2..  ..2./  2 


(D.  3) 


From  Equation  D.  3 and  D.  2 it  can  be  seen  that 


T _ ( ) 
“2i"  Lw> 


— — I + ( ) 

k2(l-M2)  I k2(l-M2) 


To  find  put  c*31  into  Equation  D.  1 to  get  Equation  D.  4. 


'a31V1^3dr=  y1(a31Z3)dr  + [BC] 


(D.  4 ) 


Substituting  for  in  the  above  equation. 


fRo  - iy  i 1 P 

L PckMZ3  dr-Jo 


yl(Q31Z3)dr  + [BC] 


(D.  5) 


Integrate  the  left  hand  side  of  the  above  quation  by  parts  to  get  Equation  D.  6. 
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“31=  1 

pckM 

yi(o31Z3)dr+[BC] 


It  is  now  possible  to  write  out  the  matrix  for  [A*]. 
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The  adjoint  eigenvalue  problem  is 


A*Z  = 1Z 


(D.  7) 


Writing  out  the  equations  of  D.  7 gives  the  following  equations. 


_Lrf_5L_r  ^-^r)z2r  {jLjei7  1 \i 
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pckM 
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Z1  -“^V2  2 = XZ2 

1 (1-M2)  2 2 
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2ipckM 

~~ 2 2 + "m"  _ ^ Z3 

k (1-M  )M 


(D. 10) 


Solving  for  and  Z^  in  Equations  D.9  and  DvlO  and  substituting  into 
Equation  D8  reduces  the  set  of  equations  to  one  equation  in  Z^. 
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-2ipckM  Z 
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(D.  11) 


Equations  D.ll  show  that  Z^(r)  and  Z^(r)  can  be  expressed  in  terms  of 
Z^(r)  alone  and  that  boundary  conditions  on  Z^r)  are  needed  to  uniquely 
determine  the  radial  distribution  of  Z^(r)  to  within  an  arbitrary  constant. 
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The  boundary  condition  terms  came  from  Equations  D.  3 and  D.  6 and  are  set 
equal  to  zero  collectively. 


yl  Z2 
k2(l-MZ) 


i Ro 

1 1 

yl 

lk2(l-M2)J  ^ k2(l-M2)  J 

+ 

O 1 

pckM 

R r 


(D. 12) 


so  that  y^  = P and  Equation  D.  12  becomes 


P’Z 

2 - r 

Zz 

, p r M 2 

iPZ3‘ 

,k2(l-M2) 

ik2(l-M2) 

+ P 2 2 
k (1-M  ) 

pckM 

R, 


= 0 


(D.  13) 


Two  conditions  on  Z ^(r)  are  needed  to  make  the  differential  equation  of  D.  11 
a complete  problem. 

If  the  boundary  condition  terms  of  Equation  D.  13  are  set  equal  to 

zero  at  r = 0 and  at  r=R  and  the  substitution  for  Z_  is  made,  then  the 

o 3 

necessary  two  boundary  conditions  on  Z^  will  be  specified.  For  a 
cylindrical  duct  it  may  be  assumed  that  the  sheared  portion  of  the  flow  is 
confined  to  within  a small  distance  6 from  the  duct  wall  so  that  M'(r)  = 0 
for  rsRQ  - 6 and  the  resulting  two  boundary  conditions  are  at  r = 0 


p'(0)z  (0)  - P(0)z  '(0)  + Ll™ 

L £.  r-*  u 


P(r)Z2(r) 


= 0 


(D.  14) 


and  at  r = R (remembering  that  M-*0  at  the  duct  wall) 


P'(R  )Z  (R  ) - P(R  )Z  '(R  ) + P(R  )Z  (R  )[~-  + 2M'(R  )\]  = 0 (D.  15) 

o 2 o oZo  o2olR  o / ' 1 

o 

The  form  of  the  adjoint  differential  equation  of  D.  1 1 in  the  non- sheared 
portion  of  the  fluid  is  (for  M'(r)=0) 
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Z 1 2 

— + k2[l-2MX  - (1-M2)\2  + -1"— 7 ] Z = 0 

r £ c 

(kr) 


(D.  16) 


where  the  complex  conjugate  has  been  taken.  By  letting  Z^  - rF  Equation  D.  16 
can  be  transformed  into  Bessel's  differential  equation  in  F. 

■pi  7 7 7 

F"+—  +k  [1-2MX  - (1-M  )X  ^]F  = 0 

r (kr)2 


(D.  17) 


which  is  the  same  differential  equation  for  P(r)  in  the  uniform  flow  portion 
of  the  fluid.  If  (rZ^)  is  required  to  be  finite  at  r=0,  then  F may  be  composed 
only  of  Bessel  Functions  of  the  first  kind, 

Z_  = rJ  (or)  where  o = k2(l-2MX  - (1-M2)X2) 

2 m 


Thus  for  a cylindrical  duct  the  adjoint  can  easily  be  found  in  the 
uniform  flow  section  and  it  remains  only  to  solve  the  adjoint  differential 
Equation  (Equation  11D)  through  the  boundary  layer  at  the  duct  wall. 
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APPENDIX  E 

PROGRAM  CO 


1 


-1  CO  ( INPUT  = 1 1 4/6  C ,LUTPUT=164/6U,  T A FE5= INPU T , T A 3Eb=0UT3 JT 
THIS  D R DG  K.  AM  CALCULATES  THE  rtODAL  COtFFICIENTS  AT 
INTERFACES  OF  CHANGING  ACOJ3TIC  IMPEDANCE  FUR  CYLINDRICAL 
DUCTS 

CO-1 EX  3 ( 1C  ,2,  10)  ,LAK  (U  , 2,  10)  , ALPHA  (IT  ,2, 1C)  , A (1C)  , I 
CORPuEX  TDTl,T0T?,T0"3,Tc7  4,T0T5,T0T6,ZET4(liJ 
CO  IP.  EX  PRESS,  PGkAD  , 3C  J , P A /T  ( 1 0 , 1 « ) , XI ( 1 L) 

DIMENSION  IP  (1C  ) 

RtAL  LENGTH, L hi ( 1C ) , L H TOT  A L , CIST ( 12 ) 

PEAL  1,<,SE(10,2,1"),TF ( IS ,2 , 1 0 ) , LH ( 1 j ) , L HH ( 13 ) 

INTEGER  S,T,Z,ZZ,AM 

DATA  ( S E ( 1 , 1 , Z)  , Z= 1, 3) /. COL E341 6, . 00SDhll5, .03  47A04Z/ 

DATA  ( SE  ( 1 , 1 , Z)  , 7= 4, fc)/. CO,  556867, . ul972692, 2. 72958572/ 

DATA  { T E ( 1 , 1 , Z)  , Z=l,3)/2.6«t60591,2.496C1728,2.02b22534/ 

DA  ^ A ( T£  ( 1 , 1 , Z)  , Z = , ,b)/i. 17  ^1o95L^,-.A-490u763, -2. 70579486/ 
DATA  { SE (1 , 2 , Z)  , Z = 1 , 5 ) / . 2 34 ~0  3 2 8 , . 0 0 5 45s3o , . C 1 7 7 612 5/ 

DATA  ( SE ( 1 , 2 , Z ) , Z = 4 , c.  )/.  C 27  cl5  9 ,.  0 434  ol  68 7,  2. 755 357 91  / 

DATA  ( T E ( 1 , 2 , Z ) , Z = 1 , 3 ) /L . 36 1( 6 f 13 , 7 . 9C 1 C4bo 29 , 7 . 46994469/ 

DATA  (T£  (1 ,2  >Z)  , 7 = 4,  P > /t . S3  o57  1 29, 5 . 0 15 1>734  55 , 2 . 759 & 1 95  1/ 

DATA  (SE(2,1,Z),  Z = 1 , 3 ) / . oO C 2270 9 , . 0 0 31 953 3, . 0 j 0 26028/ 

DAT  A (SE  (2 , 1 ,Z)  , Z= 4, E ) /. C 3L 4157 6 8 , . OG 11  * 952 , 2. 78 251 52  2/ 

DATA  (TE(2,1,Z),  7 = 1 , 3 ) /2 . 67 947 629 , 2 . 49 C LC 9,  2 . 0 1 3 339 / 

DATA  ( "E ( 2 , 1 , Z)  , Z = 4,6)/l.lo2FG  343e,-.4823bl31,-2.710  3 2083/ 
DATA  ( SE  ( 2 , 2 , Z)  , 7 = 1,  ?)  / . J Ga "9L  38,  . 3CCb('l55,  .03  1 30394/ 

■DATA  ( uE  ( 2 ,2  , Z)  , Z = 4 , 6 ) / . 00 1)  0 1 2 4 , . 0 C 2 49g97  , 2.  7 9 3955 65 2/ 

DATA  (TE(2,2,Z),  Z = 1 , 3 ) /c . 27 t 3e  46 3 , 7 . 8 &5 c 675 , 7 . 43 375 4 7 5 / 

OATA  ( T I ( 2 , 2 , Z ) , Z = 4 , t > /t . 5c  obu  1 9>t,  4 . 34  C o63  3 6 , 2 . 7134  31 87  / 

DO  *0  z=l,6 

SE ( 3 , 1 , Z) = SE (2,1,7) 

SE(3,2,Z)=SE(2,?,T) 

TE  ( 3 , 1 ,Z)  =TE  (2,  1 ,Z) 

TE(  3, 2 , Z) =TE  (2, 2,Z  ) 

SE<4, 1,Z)=SE  (1,  1,7) 

SE  ( 4 , 2 , Z)  = SF  ( 1 , 2 , Z ) 

TE  (4 , 1 , Z ) = TE  (1,1, Z) 

TE( 4, 2,Z) =TE (1, 2 , Z ) 

SE(5 , 1 , Z) =SE (1, 1,T ) 

SEC  5, 2 ,Z) =SE  <1, 2 , Z ) 

TF(S,1,Z)=TE(1,1,Z) 

TE(5,2,Z)  = TF ( 1 , 2 , Z ) 


it  15,  1,41  = it 

SE(3,2,Z)=SE(2,?,T) 

TE ( 3 , 1 ,Z)=TE  (2,  1,Z) 
TE(3,2,Z)=TE  (2,2,Z) 
SE(4» 1,Z)=SE(1, 1,7) 

SE  ( 4 , 2 , Z)  = SE  ( 1 , 2 , Z ) 

TE  (4 , 1 , Z)  = TE  (1,1,  Z) 

TEC  4, 2,Z>  =TE  (1, ?,7> 
SE(5,1,Z)=SE(1,1,T) 

SEC  5, 2 ,Z) =SE  <1, 2 , Z ) 
TE(S,1,Z)=TE(1,1,Z) 
TE(5,2,Z)  = TF  ( 1 , 2 , Z ) 
CONTINUE 

ZE T A ( 1)  =CMPLX  (.  4 ,-2  . ) 
ZETA(?) =CMPLX(.  06, -3. 1 ) 
ZET  A ( 3)  = ZE  T A (2) 

ZETA(4) =CMPl  X ( , h , - 2 . ) 
ZETA (5) =ZE  T A (4) 

I = C'<3LX  ( C . ,1.) 

WRIT c,  (6,5) 


ppyfrym.Ntl  FAGS  NOT  FIX*® 
BLANK 
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PROM  COPY  FUKNISiffiD  TO  DOC 
C 

C £TA=2*k*F/C  (A  FRE3JENCY  PASAMETE*) 

C AM  lo  THE  ANGULAk  MOJF 

C ROUT  10  THE  GUTfR  RADIUS  OF  I HE  DUCT 

C FM  IS  THE  FLOW  NASH  NUMBER 

C 

5 FORMAT  (1X,*EnTER  ETA, A l,K0UT,rK  *) 

RE AD ( 5 , * ) ETm,A^,H»  4 

WRITE (U,7) 

7 FORMAT  (IX,  ♦EM-K  tHE  NUMBER  OF  EIGENVALUES  *) 

REA0(3,*>  J 
WRITE (6,3) 

6 FORMAT  (1X,*EMTEi\  THE  NUMBER  u“  INTERFACES  *) 

READ (3 , ♦ ) NI 

T = N I - i 

IF(T.cO.O)  GO  tq  u 
00  IE  2=1, T 
WRITE (6, 15)  2 

C 

C LH( I)  IS  THE  RA T x 0 OF  THE  LENGTH  IN  THE  flXIAL  JlRECTION  0" 

C SEGMENT  I TO  THE  OUTr.k  RADiUi 

C 

16  FORMATdX, ♦ENTER  _H(*,ii,*)  ♦) 

REA")  (5  , ♦ ) LHH(Z) 

JJ  = 2 ♦ Z 

15  LH( JJ) =_HH (7) 

GO  TO  13 

4 LHC?)=C. 

16  LAaT=2»4I 
00  32  Z=l, J 
00  33  ZZ=1,J 

3(1, 1,ZZ)  = R(1, 2,27) =„MPLX(C. , 1 . ) 

PART  ( Z ,TZ)  =C  f’PL  X ( j . . ) 

33  CONTINUE 

32  CONTINUE 

C 

C INlTiAuIZE  THF  ifv3Ur  -r.EsSU-1  LISK13JTIUM  TO  3E  THE 

C FITS!  FORWARD  P ■ j=  A V'  7 iNG  *01  z 

C 

3(1,1, 1 ) = C MP L X ( 1 . , 7.) 

H=H/12. 

R=H 

3. 1415326 
<=3I *E  T A/H 
WRi  T E (6,9) 

9 FORMAT  (1X,*LTST  EIGENVALUES?  l-YES,  j-NO  *) 

REA0(5,*)  I A NT 
C 

C CAlCJLATE  THE  \AuI  a w Mi  j AX1m_  EIGEN  VAcUE^ 

r 

JO  3 <<  = i,LAc-7 
A (<<)  =1./(E7m*  ZETA  ( <M)  ) 

00  2 Z = 1 , J 
00  1 S = 1 , 2 
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BESI  quality  fracxicaBLR 

SSh-*"*  - 

LAI  (<<  , 3,  Z ) ='wfVL  X(t-'(K,*.,:.,Z;,-:.E(<k,S,Z>)/E-". 

AL3HA  («,Su)=4ir^KK>i,ZI*£.:#'<*t-l.  j)»-'(S  + i)*u 
AL3MA(K<,S,Z)  = K*R>  **2*  ALPHA  KK,S,Z) 

AL  JH  A («,S,7)=CS0R7  (ALPH<-  (<<,S, Z>  > 

IF(IANS.NE.l)  GO  TO  IOC 

WRITE (6, 17)  <K,  S ,Z  , ALP  hA  (K<,  S , Z ) 

FORMAT  (IX,  *AlPOA  (*,:i,*,*,Tl,*,*,Il,*)-*,2Fli.7> 
WRITE  (6,11)  KK,S,Z,i.iMUK,S,7) 

FORMAT  (lX>*LriM(T,Il  ,"',*,11  ,c  , * , 11,*  ) =*  , 2F1 1 . 7) 

CONTINUE 

CONT  I OUT 

CO. -IT  I 4UE 

IF ( I A NS • ME • 1 ) GO  TO  ? 

WRITE (6,25) 

W»ITE (6,25) 

F URWA  T (IX,*  ♦) 

CO  -IT  i.  NUE 
CONT  NUE 
00  5 J «=1,NI 
NN=2*<< 

LL=2*<<-1 
00  10  :i  = l,  J 
S = 1 

CO  IT  I NUT 

CALl.  1ATCH(KK,N,S,J,AM,M,<,L*.>'i,ALPriA,H,A,'3) 

IF(NN.cO.LAST)  GO  IT  22 

CALL  TRANS  ( .-(  N , S ,N,  <,LAM,h,Ln,3) 

S=  3 ♦ 1 

M=-M 

IF(S.EQ.2)  GO  T0  2 0 
CONT INUE 
CO  IT  T NUE 
WRITE (6, 25 ) 

WRITE (6,25) 

PRINT  TIE  MOOmL  CjCFTCIENTS 


00  95  <K  = 1 , N I 
;iN  = 2*<< 

30  3 0 N = 1 , J 

WRITE  ( o,40  ) rlN-1,1  , N,  P (N.N-1,  1 , N)  , NN-1,  2,  N,3  ( IN-1, 2,0 
FORMAT (IX, *3  (k  , il, * , * , il,* ,*  , II, *) =♦ , El2.o, IX, El2. 6, 


am(«,s,z; 


■)=*,L12.6,1X,E12.6) 


♦lX,*6(*,Il,*,*,Il,*,",Il,*)=*,tl2.6,lX,El2.6) 
CONTINUE 
WRITE (6,25) 

WRITE (6,25) 

DO  60  U=l, J 

WRI  T E ( 6 , 40  ) NN,1,N,  XUN,i,N)  , N,-t , 2 , N , 3 ( i-N  , 2 , N ) 

CONTINUE 

WRITE (6,25) 

WRITE (6, 25 ) 

CO. IT  I NUE 
WRITE (6, 2" ) 

WP.ITt  (0,25) 

WRITE (o,35) 
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35  FO  <MAT  (IX, *00  YOU  WAjT  A PRESSURE  LIST  r\I  bUT  I CM?  1-YES,  u-NQ 
REA3(3,4)  IANS 
IF<  IANS  .NE  .1  > GO  TO  BE 
WRITE (b,45> 

45  FORMAT  (IX,  *£NTEi\  T H Z SECTION  NUM3£\  TO  3 £ IN  VEST  IGA  T E 0 *) 
READ  ( 5 , 4 ) LL 
WRITE (o, 55 ) 

6 5 FORMAT  (IX,  IX  , 4X*  , 1 6 X , * PRESSU.-.E4  , 20  X , 4PRE  SSURE  jRADIENT  4) 

00  55  Z=l, 11 
X=J . C+Q. 1* (Z-l) 

CA^L  ORES  ( J , LL  , ETA  , X , L mM, ALPhA,  A M , 3 , PRE  SS  , Pi,  RAO  ) 

WRIT  E ( 6 , 60 ) X.P^ESS , cGkAC 

8 [ FORMAT (IX, F3 .1, 5X, Ell. 7 , EX, L 13. 7, 6X, El  3.7, 2X ,£13.7) 

55  CONTINUE 

GO  TO  91 
65  CONTINUE 

STOP 
END 
C 

C SU3R3JTINE.  "MATCH”  CAlCUuATEu  THE  HOuAL  COEKFIOIpNTS 

C 

3U3R3 JTINt  Match  <KK,‘>,  s,  J,  AM,M,  K,L4M,AL°Hm,H,A,  9) 

CO'IPlEX  9F1 , -if  2 , 3F  3 , ?F  s , 3F0 , uFf  ,9FZ,  oF9 » 3F10  , 3”  1 1 
COMPLEX  3( 1C  ,2, 1C)  , LAP  (1L , 2, 1 3)  , Al Ph A { 1 T , 2 , 10 ) , A ( 1G > 

COMPLEX  TOTl.TOT?, TO! 3 ,T0T4, TOTE ,T0T6, I,dFJ 

INTEGER  S, AM 

REAL  K,M 

NN=24<K 

LL=  2 * <<- 1 

1 = 0'1PLX  (P.  ,1  .) 

CA.L  I NT  (<K,  N,S  , J,  K , Ah  , 9 , L A1-  , ALPHA,  TuTl,T0T2) 
0Fl=((l,J-M»*2)'HM(Nf,S,N)  + 2..*M)*T0ri 
9F2=  ( 1 . o-M44  2)  4 (-1  . i)  44  (E«-l)  - I/K*T0T2 
TOT5  = 3F  J ( A lF'HA  ( ,,N,  Z , : ) ,Af) 
r3F3  = I4A(NN)4ToTE/(<4M) 

C A . L 1,  ( 1 • , J , L l , AL.">HA,AM,r  , .0  i 3) 

BF-*=(  M»*2*LAM(NN,S,-J)  - 2..4M)  *TOT  3 
CAlL  HI (1. , J ,LL, alpha, L«r, <, Ar, 3, T0T4) 

(3Ft  = 3F^fM**2*  (-1  .0  )*4(S  + l)*I/K*Tr)T:. 

3F5  = 3F  3 * OF  ■+ 

3F ■>  = dF  1 + 3F  2*  Jf  uj 

= 2. 0 4 L A M ( r,s, , l , N ) * (1 . t;  - M 4 *■  2 )■*■?•  C 4 M 
CALL  INT2(KK,S,N,3  .LA*'  ,Af,  AlPHA  ,TJT6) 

3F3  = 3P  T *TOTf, 

9F1 0 = I4 A (NN)*T0T54 * 2 

IF  10=  3F  134  (2  4 i*424LT  n(NN  ,S  ,N)  -2.  C*M)  / (K4H) 

3FU=  jF  3 f 3 F 1 G 
8 ( J‘J,  3,  J)  = 3Fp/3pll 
RETURN 
ENC 
C 

C SU9R0JTINE  "1  V«*flS"  r-4„Sr£Rs  THF  *»OUfcL  wOEFF  ICi  £NT  S AT 

C TrtE  BEGINNING  OF  A JMNt  31  o Ml  NT  TO  THE  NEXT  CHANGE 

C IN  ACOUSTIC  I MP E OA N C * 

r 
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SU3 ROUTINE  TRANS(NN,S,N,K,HM,n,LH,3) 

CO  -10LE X LAM(  10 , 2,1  j)  , 3 (It , 2, 1C)  , I 
REAL  K f LH  ( lii ) 

INTEGER  S 
I=CMPLX (3. ,1 . ) 

JJ=NN+ 1 

du  j,  s , ,>n  = -3(.'4N,  s,n)  xpi  ( -i .:  > **s* i*<*i6rtUN,  j , N)  *h*lh (n  n ) 

re; urn 

ENJ 

3U3R0UT INE  "InT"  CALTULAitG  THE  INTEGRAL  OF  THE  °RESSJRZ 
OISTRI3J7ION  MULTIPLIES  EY  i nE  N TH  HOOF  OF  PRESSURE 

SU3ROUT INE  InT ( KK, N , j , J, K , Ah , d , L A M , AL3H4 , TUT  1 , TO 72) 

REAL  < 

INTEGER  S, AM, AMI 
COMPLEX  T0T1  ,T0T2 

COMPLEX  T1,T  2,T  3,Ta,7E ,7l,3U  11, SU.M2 , SJM3 ,SUMu 
COMPLEX  ALPHA(1L,E  , I-  ) ,LA  M < 1 „ , 2 , 1 - > , 6(  1 C , 2 , 1 U > , 3r  J , I 
I=0M3LX(2. ,1 .) 

NN  = 2*  KK 

lL=2*KK-1 

SUMl  = CMPLX  (C  . , 0 . ) 

SU  12  = CMPLX  (G  .,0  .) 

SUM3  = CMPLX (C .,0  . ) 

SU'U  = CMPLX  (0  . ,0  . ) 

AMI  = A M + 1 
OO  13  L = 1 , J 

Ti=  A LP  lA  <LL,  1,L  >+3F  J ( A..PMA  U u,  1 , L)  , Artl)  *EFJ  < ALPHA  (NN,3  , N ) , AM) 
T2=ALPHA  (NN,  S,N  )*3F  J ( ALPHA  (L  L,  1 ,L)  , AM)  * dP  J (ALPH*'  (NN,  s,  N)  ,A  Ml) 
T5  = ( A L °H A ( LL , 1, L ))**?- (Alpha  INN,S,N) )**  2 
SUMl  = 3'JMl«-3UL,  1,L>  ♦ (T  1-T2)  /~5 
SUM2=3U12*8(LL,1,L) *LAM(LL,1  ,L) * (11-T2) /T5 

T3  = AL3hA  C..L,  2,L  )*3F  J(A  LPhA  (L  ^,2  ,L)  , A MD^pf- J(  AL’HA  (N.N,S,N> , A 1) 
T4  = AL  PH4  (NN,a,N)  *3P  J ( A lPHA  ( L L , 2 , L ) , a 1)  ♦ 3F-  J ( A LPH  A ( NN , 3 , M)  , A 1 1 ) 
T6= ( ALDHA (LL ,2, L ))♦*?-( A L P HA (NN , S,N) )**? 

SUM3=SUM3«-3(  LL,  2,.  ) * ( T 3-T  ) / TS 
SU‘U  = $UM4f  3(LL,  2,L>*LCh<Ll,?,l>M7  3-T4>/T6 
0 CONTINUE 

TOTl=RU(MlfSU«M3 

TOT  2 =(-I) *K* (SUM2-SJ"U  ) 

KETUR  1 

SU3 ROUTINE  "5"  CALCULATES  TH'  PRESSURE  .*7  A POiN"  FOR  A 
G I y E N NlRrtALlZtJ  "»IS"ANCl,  X,  FkLM  THE  CENTER  ?c  THE  JUCT 


FMl 
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oU3  ROUTINE  G (X,  J,Ll , H FHa, A\ , 3, 7GT3) 
rO^PwEX  3<  1C  ,2,  1C)  , ALFuAdC,  l,1C) 

CO  1DcEX  FJ,F'Ji,FU2,  GJMc.TOT’ ,3F J 
IN"  £&E  P AH 

su  i3=  omplx  (c  .) 

JO  10  L = l,  J 

FUl  = JU.c,i,l>*SFJ(«.-HA(H.,l,L>*X,AU 
FU2=b(LL»2  |klfBrJ(  ? L“H  A ( LL  , 2 , L ) * X , A H ) 

FU=FU1  f-IJ2 
SIH  3 = 3<J  134-F'J 
1C  CONTI  rlU£ 

’■  0 T 3 = S U 1? 

RETURN 
EN  J 

subroutine  “u"  calculates  in”  pressure  g^Aluent  at  a point 

FOR  f GIVEN  nOmhAlI  7.'~  L 3ISTl.,CE,  X,  FRUH  THE  CENTER 
OF  THE  OUT  T 


SU3  ROUTINE  H 1 (X  , J,  c c,  A LPHA  , l m.N  , < , AH  , 3,  T 01  4) 

C OH  PL  EX  3(10,2,10  , ALFHAdC,  2,1G)  ,LAN(i:  ,2,10) 

COMPLEX  SlK1*,T0T4,F  J,FU1,FU2 ,I,?FJ 
REAL  < 

INTEGc.:  Am 
i=:  ip. <c.,i.) 

SUU  = C«°LX  ( J . ,u  . ) 

00  10  L=1,J 

FUL=  3(  ..,1  ,L  )*lAH(  lL,  1 ,L)*  3F  j(4LFHA  (LL,1,L)  *X,  A'1» 

FU2  = J l Lc,  2 ,L)  *L*-r  ( LL  ,2  ,1) *uF  JIhLPmA  (LL,2,L)*X,AH) 

FU  = FU 1 - “ U2 

sU-L:  jJ  1a+FL* 

cont  :nue 

tot 4= so  u*k*  (-; ) 

RETURN 

END 

SU3  ROUTINE  "INTO**  F'xlCuL4TES  Th£  INTtGKAc  OF  THE  iOUARE 
OF  "HE  N TH  MODAL  PRESSURE  c liTRiBJT  UN 

SU3  OUT  InE  i NT  2 (N<  , 3 , .n  , 3 , L Ac  , A * , AL  PH  A , T 0 T S ) 

COmPlEx  3(  lo  ,2,  U)  , LAV  (It. , 2,  10)  ,«tFH, A (10,2,10) 

CO  PcEX  Fji , FU2  vT0T-,,  4FJ 
INTEGER  S,  Ai',AHl,AH? 

AMI =5 M + 1 
AH2  = A H- 1 
,N  = ?*<< 

LL  -2*  <<-l 

I F ( A H . E j . ? ) GO  '0  1’ 

FU.=  ( JF  J(ALF  hA( nn, 3 ,N)  , Am ) ) * * 2 

fji  - ( J F J ( A L c H f ' .-if : ; S ; - ) , *M2 ’ > *'  ( =.  F I ( ~i  PH  A ( r»i>4 . S , M)  .Aril)  ) 
TOd-3. 5*(Fui-FU2> 

RET  J hN 

FUt  = (IF  J ( AlF'al  ( !‘N,  3 , i)  , 1)  ) **  «. 

F U 2 = (.iF  j ( A LF  Hi  ( -im,  c , • ) _ 

T 0 " S ) >3*  ( FLi  1 * r J2) 
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IHIS  PAGE  IS  BEST  QUALITY  FRAC!PIga512 
COUPLEX  FUNCTION  3FJ(Z,N)  IROit  COPY  FUxuNISHED  TODDC  — 

C 

C 3F J ( Z , N)  IS  J SUR  N OF  Z (Bc^SEL  FJNCTION) 

C 

C09  Pi  E X AI,V 
COMPLEX  SY,SO,GN,JN,\/N 
C01P.EX  T,Z,ZZ,Y,~,,A,6,S,PP,GNE 
IF(  C A 9S  ( Z)  . EQ . u . ) GO  TO  77 
AI= (0. , 1.) 

PI  = 3. 1 *♦159  27 
V=  - A I * Z 
ON£  = ( 1. ,0. ) 

ZR 0=0  . 

e=i . e- n 

pp= (2. 536&2F274 ,5.  ) 

XN=FLOAT  ( M » 

IF(0A  3SU) /10.-1.)  21,21,31 

21  ZZ=(.5,3.)*V 

Y=Z  Z*  Z Z 
FA02=1. 

IF ( N)  41,42 

41  00  >+3  1 = 1, N 

43  FA:2=FAC2»FL0Ar  (I) 

42  G= ONE/C  iPLX(FAw2,ZkO) 

A = j 

x=o. 

51  X=X*1. 

A=A  * Y /C'lPi.  X ( X,  Z KO)  /C  -'P  LX  (XN+X,ZRO) 
o = j + A 

U=CA3S  (A) -E 
IF  < U ) 23,23,51 

23  G=(ZZ**M)‘G 

GO  TO  90 

31  U=u.*XU*XM 

SV=(C.,3.) 

SU=OME 
K = 1 

GN=Z-°I/4.-N*PI/2. 

J=( . 125,0. )/Z 
J N=(J-1. )*9 
UN=-VN* (U-9. )/2 .*9 
SV=S\/«-  VN 
SU=  30 ♦UN 
00  33  K = 2,F 
XK=FLOAT  (<) 

VN=UN*  (U-  ( 4.  *XK-3.  ) •*  2)*t  / (2  ,*XK-1. ) 

•J  N=-VN*  (U-l4.#X<-l.)*,2)*'3/(2.*X<> 

:>V  = 3 V 4 VN 
33  SU=SU«-UJ 

3F  J = 3 Q-<7  ( 2 . / DI ) /C3U<7  <Z>* (SU*CCC5(GN)-S Y*CSIN(GN)) 

RE i URN 
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THIS  PAGE  IS  BEST  QUALITY  FRACT1CARI^ 
COPY  FUxttsISHED  TO  DDC  - " 

90  3Fj=C!;XP(‘'*pi*aj/2.  ) »r 

IF(R£4l  (Z)  .LT  .C  . .A\ 7.  A it-iActZ  ) .GT  .j.)  :»u  '0  o 3 

rehi 

66  3fj=:ex  = (--?.  ir/r. ) *r, 

RETURN 

77  3FJ=<3.,0.) 

TF(N.E'i.O)  £3FJ=  (1.  , 

RET  Jr? \| 

EN  7 

SUBROUTINE  PKr  S ( J,  U , lTm,  X ,L^,  ALPHA  ,A  m,  i^PRLSS^G  <A  j) 

CO  P LEX  LAM(ir,2»i;j  ,tLV.  ( 1 ' , 2 , 1J ) , j ( 1 : , 2, 1 E ) , 3 r J 
CO*P-_  -x  F J ,F  Ul , E'J2  J5  ,SU'U,  oUt  2,  PRESS  > ^GRAO 
INTEGER  A 'I 
SU  'U  = C “1;>L  X (t  . ,.j  . ) 

5UR2  =3*P!.X  <0  . ,0  . > 

00  13  L = 1 > J 

FU1  = J ( lL,1  ,L  ) ♦ 3FJ(  aL^  H/.  (LL,i,U*/,A'1) 

FU2  = 3 (L_,2  ,L  >*?FJ<  AL^Pa  < ,U  Am) 

FU=FUifFU2 

FU3  = lA3(LL>1»L)  ■*  F J 1 - L A i (LLjPjL)  *F’J2 
S1H  1=  S JMH-FU 
SUR2  = oJ12«-FU7 
IP  00)71  ND- 

PPESS  =SJ  Ml 
PG<A3  = SiM2 
RETURN 
END 


RUN , FTN 


@ A. 039  CP  SECONDS  COMPILATION  TIME 

CENTER  ETA, AM, ROUT, FM  4. ,0,40, .5 

CENTER  THE  NUMBER  OF  EIGENVALUES  5 

ENTER  THE  NUMBER  OF  INTERFACES  2 


ENTER  LH(1)  .75 


LIST  EIGENVALUES?  1-YES , O-NO  1 


ALPHA (1,1,1)= 
LAM(1, 1, 1)= 
ALPHA (1,2,1)= 
LAM(1, 2, 1)= 
ALPHA (1 ,1,2)= 
LAM(1, 1,2)= 
ALPHA(1,2,2)= 
LAM (1,2,2)= 
ALPHA (1,1,3)= 
LAM (1.1,3)= 
ALPHA (1,2,3)= 
LAM(1,2,3)= 
ALPHA( 1,1,4)= 
LAM(1,1,4)= 
ALPHA (1,2,4)= 
LAM(1,2,4)= 
ALPHA(1 , 1,5)= 
LAM(1, 1.5)= 
ALPHA (1,2,5)= 
LAM (1,2,5)= 


.1452562  1.2642084 

.6716515  -.0011585 

1.4721282  6.9562253 

2.1402650  -.0586758 

3.6414120  .0375828 

.6240043  -.0008953 

2.7971369  .0755394 

1.9750117  -.0013636 

6.8943332  .0238853 

.5065563  -.0011851 

6.3074688  .1002319 

1.8674862  -.0044453 

10.0646391  .0213496 

.2937974  -.0018890 

9.6995186  .0836030 

1.6583928  -.0069040 

13.1966252  .0245387 

-.1122519  -.0049317 

13.0278470  .0580338 

1.2539184  -.0108705 


ALPHA(2, 1.1)= 
LAM(2,1,1)= 
ALPHA (2 ,2,1)= 
LAM(2 , 2,1)= 
ALPHA (2 , 1,2)= 
LAM (2,1,2)= 
ALPHA (2 ,2,2)= 
LAM (2,2,2)= 
ALPHA(2, 1,3)= 
LAM (2,1,3)= 
AI.PHA(2 , 2,3)  = 
LAM(2,2,3)= 
ALPHA(2, 1,4)= 
LAM (2,1,4)= 
ALPHA (2, 2,4)= 
LAM (2 ,2,4)= 


.0089302  1.0063306 

.6698691  -.0000568 

.0709937  4.7320683 

2.0690962  -.0020226 

2.7036910  .0020492 

.6225023  -.0000497 

2.9856230  .0077840 

1.9714709  -.0001504 

6.9338692  .0013018 

.5045848  -.0000651 

b. 5065811  .U070716 

1.8584387  -.0003260 

10.1000377  .0011667 

.2906509  -.0001039 

9.8480543  .0050087 

1.6459005  -.0004253 
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r 

ALPHA(2, 1,5)= 

13.2376073 

.0013552 

LAM(2, 1, 5)= 

0.1205903 

.0002774 

ALPHA (2, 2, 5)= 

13.1250769 

.0032051 

LAM (2,2,5)= 

1.2352158  - 

.0006247 

ALPHA(3 , 1,1)= 

.0089302 

1.0063306 

LAM (3,1,1)= 

.6698691 

.0000568 

ALPHA(3,2,1)= 

.0709937 

4.7320683 

LAM (3, 2,1)= 

2.0690962 

-.0020226 

ALPHA(3,1,2)= 

3.7036910 

.0020492 

LAM(3 , 1,2)= 

.6225023 

.0000497 

ALPHA(3,2,2)= 

2.9856230 

.0077840 

LAM(3,2,2)= 

1.9714709 

-.0001504 

ALPHA(3,1,3)= 

6.9338692 

.0013018 

LAM(3,1,3)= 

.5045848 

.0000651 

ALPHA (3,2,3)= 

6.5065811 

.0070716 

LAM(3,2,3)= 

1.8584387 

-.0003260 

ALPHA(3,1,4)= 

10.1000377 

.0011667 

LAM (3,1,4)= 

.2906509 

.0001039 

ALPHA(3,2,4)= 

9.8480543 

.0050087 

LAM(3,2,4)= 

1.6459005 

-.0004253 

ALPHA(3 , 1,5)= 

13.2376073 

.0013552 

LAM(3, 1,5)= 

-.1205903 

-.0002774 

ALPHA(3 , 2,5)= 

13.1250769 

.0032051 

LAM(3,2,5)= 

1.2352158 

-.0006247 

ALPHA(4 ,1,1)= 

.1452562 

1.2642084 

LAM(4, 1, 1)= 

.6716515  -. 

0011585 

ALPHA(4,2,1)= 

1.4721282 

6.9562253 

LAM (4,2,1)= 

2.1402650 

.0586758 

ALPHA (4, 1,2)= 

3.6414120 

.0375828 

LAM(4, 1, 2)= 

.6240043  -. 

0008953 

ALPHA(4,2,2)= 

2.7971369 

.0755394 

LAM(4,2,2)= 

1.9750117 

.0013636 

ALPHA(4,1,3)= 

6.8943332 

.0238853 

LAM (4,1,3)= 

.5065563  -. 

0011851 

ALPHA(4,2,3)= 

6.3074688 

.1002319 

LAM(4, 2, 3)= 

1.8674862 

.0044453 

ALPHA(4,1,4)= 

10.0646391 

.0213496 

LAM (4,1,4)= 

.2937974 

0018890 

ALPHA(4,2,4)= 

9.6995186 

.0836030 

LAM(4,2,4)= 

1.6583928 

.0069040 

ALPHA(4,1,5)= 

13.1966252 

.0245387 

T AM  ^ A 1 S')  = 

*****  \ •»-»-’/ 

-.1122519 

.0049317 

ALPHA(4,2,5)= 

13.0278470 

.0580338 

LAM(4, 2, 5)= 

1.2539184  - 

.0108705 

B(l,l,l)=  . 100000E+01 

0. 

B(l,2,l)=0. 

0. 

B (1 , 1, 2)=0. 

0. 

B(l, 2 , 2)=0. 

0. 

B(l, 1,3)=0. 

0. 

B(l,2,3)=0. 

0. 

B(l,l,4)=0. 

0. 

B(l,2,4)=0. 

0. 

B(l, 1, 5)=0. 

0. 

B(l,2,5)=0. 

0. 

B (2 , 1 , 1)= 

. 107224E+01 

- . 461873E-01 

B(2,2,l)=- 

. 158089E-03 

. 964180E-04 

B(2,l,2)= 

- . 989596E-01 

. 643348E-01 

B(2,2,2)= 

. 882838E-03 

- . 668608E-03 

B (2, 1 , 3)= 

. 426578E-01 

- . 287741E-01 

B (2,2,3 )=- 

. 229084E-02 

. 162667E-02 

B(2,l,4)= 

272913E-01 

. 186203E-01 

B(2,2,4)= 

. 409883E-02 

- . 288730E-02 

B(2, 1, 5)= 

. 258513E-01 

- . 177915E-01 

B (2 , 2 , 5) =- 

. 103703E-01 

. 7 24852E-02 

B (3 , 1, 1)= 

. 106979E+01 

- . 784815E-01 

B (3 , 2 , 1)=- 

. 187724E-03 

- . 195088E-04 

B(3, 1, 2)= 

- . 116468E+00 

. 188210E-01 

B(3,2,2)= 

. 674454E-03 

- . 880359E-03 

B(3 , 1 , 3)= 

. 305712E-01 

. 413497E-01 

B (3 , 2 , 3)= 

. 104757E-02 

. 261634E-02 

B(3,l,4)= 

. 323711E-01 

- . 644275E-02 

B(3,2,4)=- 

. 347  298E-02 

. 364385E-02 

B (3 , 1, 5)= 

. 269463E-01 

. 159246E-01 

B(3,2,5)=- 

. 458417E-03 

. 127 189E-01 

B(4, 1, 1)= 

. 999535E+00 

- . 293236E-01 

B (4 , 2 , 1)= 

. 223289E-04 

- . 712663E-05 

B(4,l,2)=  - 

. 183774E-01 

-.499105E-01 

B(4,2,2)= 

. 100928E-02 

- . 362893E-03 

B(4,l,3)=  - 

. 132040E-01 

. 715555E-01 

B(4,2,3)= 

.427187E-02 

. 947  539E-03 

B(4, 1,4)= 

. 603931E-01 

- . 249638E-01 

B (4 , 2 , 4)=- 

. 843627E-02 

. 623144E-02 

B (4 , 1 , 5)= 

. 299753E-03 

. 329887E-01 

B(4,2,5)= 

. 108228E-01 

. 59997 IE-02 

1-CONTINUE , 

O-STOP  1 

ENTER  DELTA  .0001 


@LIST  PARTIALS?  1-YES, 

O-NO  0 

B (1 , 1 , 1)= 

. 195197E+01 

. 390004E-01 

B (1 , 

2,1)  = 

. 183606E-01 

- . 150698E-01 

B(l, 1, 2)  = 

. 101560E+01 

717458F.+01 

B (1 , 

2,2)=- 

. 261584E+01 

. 513490E+01 

B (1 , 1 , 3)= 

- . 194688E+01 

. 274143E+00 

B (1 , 

2,3)  = 

. 266783E+01 

. 295531E+01 

B(l, 1,4)= 

. 174610E+00 

. 568140E+01 

B(l, 

2,4)=- 

. 264145E+00 

-.689511E+01 

B(2,l,l)= 

. 207401F.+01 

134046E+00 

B(2, 

2,1)=- 

. 67  3036E-01 

- . 114168E+00 

B(2,l,2)= 

. 764204E+00 

- . 708326E+01 

B (2 , 

2,2)=- 

. 215084E+01 

. 388187E+01 

B (2 , 1 , 3)= 

- . 17  3913E+01 

. 454197E+00 

B(2, 

2,3)  = 

. 210592E+01 

. 183519E+01 

B (2, 1,4)= 

. 65623GE-01 

. 337937E+01 

B(2, 

2,4)  — 

•»  r < n r 

• / JUOU / L-Ul 

r / n i r>  r\r->  , n i 
“ • D4J1U7  Lj  "T  \J  X 

B(3, 1, 1)  = 

. 206791E+01 

-. 196467E+00 

B (3 , 

2,D  = 

. 1 597  54E-01 

- . 134132E+00 

B(3, 1 ,2)= 

. 356203E+01 

-.61 684 1 E+0 1 

B ( 3 , 

2,2)=- 

. 5117  52E+00 

. 62507  6E+01 

B(3, 1 , 3)= 

528574E+00 

171684E+01 

B(3, 

2,3)  = 

. 228472E+01 

- . 162203E+01 

B(3, 1,4)  = 

. 212173E+01 

- . 515470E+01 

B(3, 

2,4)  = 

. 133037F.+01 

. 631966E+01 
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B(4, 1, 1)=  . 191084E+01  -.272673E-01  B(4,2,l)=  .284520E-01  -.888894E-02 
B (4 , 1 , 2)  = . 380326E+01  -.622155E+01  B(4,2,2)=  -.788153E+00  .554465E+01 
B(4,l,3)=  - . 655030E+00  -.187940E+01  B(4,2,3)=  .256603E+01  -.606630E+00 
B(4, 1,4)=  . 224428E+01  -.491479E+01  B(4,2,4)=  .993865E+00  .522715E+01 


1-CONTINUE,  O-STOP  0 


DO  YOU 

ENTER 

X 

0.0 

WANT  A PRESSURE  DISTRIBUTION?  1-YES, 

THE  SECTION  NUMBER  TO  BE  INVESTIGATED 

PRESSURE 

. 1001500E+01  . 2842171E-13 

O-NO  1 

1 

PRESSURE  GRADIENT 

. 1625843E+01  - . 6829814E+01 

.1 

. 1001167E+01 

- . 1183152E-01 

. 1995747E+01 

- . 8885828E+01 

.2 

. 1008851E+01 

- . 2407052E-01 

. 2970781E+01 

-. 1328979E+02 

.3 

. 1036947E+01 

- . 6095731E-02 

. 4203197E+01 

-. 1612265E+02 

.4 

. 1078984E+01 

. 1972273E-01 

. 5266381E+01 

-. 1434730E+02 

.5 

. 1112009E+01 

- . 5990515E-02 

. 5794504E+01 

- . 8126704E+01 

.6 

. 1130982E+01 

- . 8468392E-01 

. 5580465E+01 

- . 6354339E+00 

.7 

. 1176481E+01 

- . 1119220E+00 

. 4642866E+01 

. 4433282E+01 

.8 

. 1298269E+01 

- . 3316751E-02 

. 3304502E+01 

. 5684916E+01 

.9 

. 1427513E+01 

. 4335035E-01 

. 2308622E+01 

. 5022769E+01 

1.0 

. 1180064E+01 

- . 6320837E+00 

. 2981733E+01 

. 6209906E+01 

DO  YOU 

WANT  A PRESSURE 

DISTRIBUTION? 

1-YES, 

O-NO  1 

ENTER  ' 

X 

THE  SECTION  NUMBER  TO  BE  INVESTIGATED 

PRESSURE 

2 

PRESSURE  GRADIENT 

0.0 

. 97  69849E+00 

-.1474205E-01 

. 1598795E+01 

- . 6833459E+01 

.1 

. 9869171E+00 

- . 2050817E-01 

.1972721E+01 

-.8891780E+01 

.2 

. 1012398E+01 

- . 2459882E-01 

. 2964705E+01 

-. 1329070E+02 

.3 

. 1043196E+01 

1122503E-01 

. 4227094E+01 

- . 1609951E+02 

.4 

. 1070392E+01 

•2719755E-02 

. 5308967E+01 

- . 1430485E+02 

.5 

. 10947 38E+01 

-.  187169 IE-01 

. 5812463E+01 

- . 8110914E+01 

.6 

. 1129986E+01 

-.7082811E-01 

. 5543096E+01 

- . 6821453E+00 

.7 

. 1194598E+01 

- . 8516080E-01 

. 4601613E+01 

.4378078E+01 

.8 

. 1289856E+01 

-. 1720694E-01 

. 3379988E+01 

. 5739820E+01 

.9 

. 1370750E+01 

- . 5267412E-02 

. 2459718E+01 

. 5129538E+01 

1.0 

. 1322296E+01 

-.4511934E+00 

. 2454775E+01 

. 5722503E+01 

DO  YOU 

WANT  A PRESSURE 

DISTRIBUTION? 

1 — YF.S  . 

0-NO  0 

■ 


APPENDIX  F 

LINER  ANALYSIS  PROGRAMS 

F.  1 LINPART  INPUT 

R = normalized  lining  resistance  - dimensionless 
X = normalized  lining  reactance  - dimensionless 
T = temperature  in  °R 
P = duct  mean  pressure  in  psi 
F = frequency  in  Hz 
M = duct  Mach  number 
RHO  = duct  mean  density  in  lbm/ft 
TH  = face  sheet  thickness  in  inches 
D = face  sheet  perforation  hole  diameters  in  inches 

F.2  LINPART  OUTPUT 

OA  = fractional  open  area  of  face  sheet  (.  063  means  6.3%  open) 
OP  = depth  of  backing  cavity  in  inches 

5 rogram  LINFREQ  uses  the  same  nomenclature  as  LINPART. 

I 
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THIS  P AGE  IS  BEST  QUALITY  PRACTICABLE 
FR0M  COPY  FURN1SHEL  TO  DDC  

ICC-  PRGGRAiM  LINHARTl  INPUT, GUTrUT* T APE5-INFUT* TAREc“GCT RUT  ) 

1 1 Q-  HEAL  i*i 

1 2G“5  WhITEC  t»  2GC) 

13G“  READ(5#,iO  R#X,»T.,i-,»F*i'i*hiIG 

1AG-6  GRITEC o*230) 

15G“  R-EALC5**)  TiijD 

1 60“  I r C Til  • EG  • G * ) STwR 

1 7G“  CEE*  1 2*bCHT  C 1.A*32.17A*1AA*R/  RIG  > 

1SC“  t*i“AEbC  Fi*i) 

190*  Th“T/519. 

2GG“  HR-P/IA.7 

210“  A*  • C7a2*T  h*Th+Tri/  CPh*tTR*.A16)> 

220“  E“.GGGC37A“CTH**»75)*-5GhTCr)/bGRT<.  Ph*  i T n-*-  • 1 t>  ) ) 

23G“  GA“C  A + E*C  l.+TH/L)*.  1 G65*t*i ) / C h+E  > 

2AG“  I FC  GA.LT • G.  > GG  TG  1 

25G“  EX“EXPC  -o*o5»ri*i'i-*6  l92*i<i> 

2bG“  C“  ♦ GGGAb’**F * t.  TII  + • 5 5*L-*  t 1 • - • 7*  SGRTl GA)  )-*EA>/bLh1l  lti> 

27C“  DP“C  CEE  / C b.2631o5*F)  ) * AT AvC  1 « / 1 C/GA-X  > ) 

23G“  CG  TG  2 

29C“1  LP“999 

3GG-2  WhI TEl b* 255)  TH*L*GA*DP 

31G-  WR I TEl 6*  232 ) 

32C“  Co  To  b 

33C*2GG  FGhrlATC  1 X*  “ENTER  h*  X*  T * P*  F*  Fi'i#  hGG  ♦) 

3AG“23G  FCRiMATl  IX* *ENTEh  TH*L  *) 

35G-232  FGhtfAT C IX*  55l In* ) * / ) 

3bG“255  FGRi’iAT  l 1 X*  *T'<1“**  Fo  • A*  * L I A“**  F5  • A*  * GA“**  F*  • t>* Lrm  + 
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360“  ENL 
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A50=  REA  DC  5*  * ) T*  P*  Frf*  TH»  D*  0 A*  DP*  KHO 
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AS0=  TR=  T/  5 1 9 • 
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500=6  WRI  TEC  6*  AO  1) 

510=  READC  5*  * ) FREQ 

520=  I FC  FREQ*  EQ.  0» ) STOP 

530=  F=  FREQ 

5 A0=  A= .07  62*  TR*  TR*  TH/ C PR*  C TR+ . A 1 6 ) ) 

550=  B= • 000037  A* C TR** . 7 5) * SQRTC F ) / SQRTC PR* C TR+ • A 16) ) 

560=  EX=EXPC-8.65*M*M-.8192*M> 

570=  C= • 000 AC9*  F*  C TH+  s 8 5*  D*  C 1 SQRTC OA) >* EX )/ 50RTC TR) 

580=  R=  1/0A*C  A+B+C  TH/D+C l-OA) )+.  108  5*M) 

590=  X=C/OA- 1/TANC 2*PI*F* DP/CIN) 

600=  WRI  TEC  6*  501)  R*  X*  FREQ 

610=  GO  TO  6 

620=501  FORMATC  IX*  * R=  **  F 1 0 • 6*  * X=**F10.6**  FREG=  **  F 1 0 • 1 * / ) 
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APPENDIX  G 


COMPARISON  OF  ATTENUATION  PREDICTIONS 


Table  G.  1 Lining  Attenuation  Spectrum 

Equal  Energy  T!  . =0.8 

design 


f 

AM 

RM 

SE 

TE 

Comb. 

Attn. 

.4 

mm 

. 860 

KU 

. 674 

1. 4 DB 

. 6 

205.  0 

0 

0 

. 108 

0 

1 

. 147 

.481 

1 

0 

. 139 

1.236 

1 

1 

1. 086 

. 0719 

2 

0 

. 1925 

1.014 

8.7  DB 

.3 

273.4 

0 

0 

.284 

1.  381 

0 

1 

1.470 

.212 

1 

0 

.394 

1.471 

l 

1 

.555 

• 604 

2 

0 

.512 

1.347 

2 

1 

1.  310 

.265 

3 

0 

.689 

1.  135 

22.6  DB 

1.0 

341. 7 

0 

0 

. 242 

1.433 

0 

1 

1.204 

. 323 

0 

2 

2.611 

. 1476 

1 

0 

. 137 

1. 737 

1 

1 

.425 

.925 

2 

0 

. 240 

1.  515 

2 

1 

■SSI 

.397 

3 

0 

1.  196 

3 

1 

1. 728 

.258 

4 

0 

. 730 

.794 

15.4  DB 

1.2 

410.  1 

0 

0 

.0991 

1.936 

0 

1 

.373 

. 627 

0 

2 

2.  290 

. 107 

1 

0 

.0633 

2.  199 

1 

1 

. 146 

1.  534 

1 

2 

1.473 

. 165 

2 

0 

. 103 

2.015 

2 

1 

. 294 

.847 

2 

2 

2.202 

. 115 

3 

0 

. 155 

1. 754 

3 

1 

1.  184 

.229 

t 

0 

• 242, 

i . j 77 

4 

1 

1.903 

. 153 

5 

0 

.488 

.802 

10.0  DB 

Conditions:  Cylindrical  duct  1 = hf/c 

L/H= 

l Mach  = 0 h 

- 40" 

Optimum  impedence / 2*  = 

(.3900-. 

3821  i)  at 

design 

Design  from  linpar:  Thickness  = 

.05" 

Diameter 

= .015  ' 

Open  area  = 

. 0036 

Depth  = 2 

.71" 
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Table  G.  2 Peak  Attention  vs.  Eta  (Equal  Energy) 


136.  7 


273.4 


683.  5 


AM 


RM 


SE 


mol 

0 

. 2835 

1.  331 

1 

1.470 

.2118 

1 

. 

.3944 

1.4707 

1 

. 5552 

.6039 

.5119 

1.  347 

1.  310 

. 2650 

.6885 

1.  135 

0 

0 

.0979 

3.909 

0 

1 

.0925 

3,  366 

0 

. 1270 

2.411 

0 

1.  329 

. 229 

0 

3.351 

.0906 

1 

0 

. 1475 

3.933 

1 

1 

. 1046 

2.  988 

1 

2 

. 1970 

1.560 

1 

3 

2.475 

. 123 

2 

0 

. 178 

3.876 

2 

1 

. 128 

2.498 

2 

2 

1.  169 

.269 

2 

3 

3.288 

.094 

3 

0 

. 207 

3. 781 

3 

1 

. 181 

1.814 

3 

2 

2.300 

. 138 

3 

3 

3.974 

.0786 

4 

0 

.237 

3.650 

4 

1 

. 138 

2.765 

4 

2 

3.090 

. 105 

4 

3 

4.589 

.0691 

5 

0 

.2698 

3.480 

5 

1 

. 176 

2.  276 

5 

2 

3.753 

.0883 

5 

3 

5.  159 

.0625 

6 

0 

. 309 

3.  267 

6 

1 

.265 

1.579 

6 

2 

4.348 

.0779 

0 

. 358 

3.002 

a 

1 

.893 

.489 

9 

2 

4.  898 

.0707 

8 

0 

.426 

2.675 

8 

1 

1.960 

.2316 

TE 


Comb. 

Attn. 


37.  6 DB 


22.6  DB 


11. 7 DB 


Conditions:  Cylindrical  duct  ' = hf/c 

L/H  - 2 Mach  = 0 h - 4C" 

Optimum  imped ence / 27=  (.8900-.  3821  i)  for  all  ~ at  Mach  = 0 


_ 1 2 -4"SEi 

E - — t e 
0 n i=l 


Attn  = 10  log  E 
10  a 
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Table  G.  3 Data  for  Lining  Attn.  Spectra 
Ductech  Method 


ETA 

Cylindrical 
L/H  = 2 
ETAdesign  = 

.8 

Cylindrical 
L/H  = 2 
ETAdesign  = ‘ 

2.4 

etad 

ATTN/ATTNpeak 

ATTN/ATTNpeak 

M = 0 

M = -.  5 

M = .5 

M = 0 

M = -.  5 

M = . 5 

.40 

. 374 

. 338 

.380 

.414 

.452 

. 380 

. 50 

.570 

. 545 

.573 

.596 

.623 

.573 

.63 

. 746 

. 732 

. 749 

. 762 

. 777 

. 749 

.79 

.946 

.943 

.946 

.948 

.952 

.946 

1.00 

1.000 

1.000 

1.000 

1.000 

1.000 

1.000 

1. 25 

.946 

.943 

.946 

.948 

.952 

.946 

1. 59 

.746 

. 732 

.749 

.762 

. 777 

. 749 

2.00 

. 570 

.545 

.573 

.596 

.623 

. 573 

2.  52 

.452 

.421 

.457 

.487 

. 521 

.457 

3.  18 

. 374 

. 339 

.380 

.414 

.452 

.380 

4.00 

.335 

.298 

.342 

.378 

.419 

. 342 

4.62 

.307 

.267 

.313 

_ _ 

_ _ 

_ _ 

■ 
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Table  G.4  Data  for  Lining  Attn.  Spectra  Least  Attn.  Mode  Theory 


Table  G.  5 Data  for  Lining  Attn.  Spectra  Least  Attn.  Mode  Theo 


FXFQ  / Des/&A ' F*£Q 

Figure  G.  3 Effect  of  Mach  No.  on  Lining  Attn.  Spectra 


APPENDIX  H 

FORTRAN  SUBROUTINE  FOR  SKIN  FRICTION 
COEFFICIENT  OF  ACOUSTIC  SURFACES 


SUBROUTINE  FRIC ( I, CF, CFR , OA ,RE0 , UI NF , NU) 


I IS  CODE  FOR  SURFACE 


bn; 


IN  LINE  HOLES-PERFORATEO  PLATE 


liUtiiHaiiuinifMJiiin 


BRUNSWICK  FELT  MET AL-KS = . G C 7 IN 


iiiiiii«awi»i»aM«iiuMinniia:w 


C CF  IS  SMOOTH  PLATE  COEFFICIENT  OF  FRICTION 


:d  infut  only  for  PERFORATED  PLATES 


r 5 m wet 


NU  IS  KIN  VISCOUSITY  IN  FT**2/SEC 


IF (I. EO.i)  F=(1.59*0A**.5-2«3l)*RED*l.E-5 


IF(I.tQ.3)  F=5.25E-8*UINF/NU 


IFd.EQ.5)  F=2.1C E-7*UINF/NU 


THIS  PAGE  IS  BEST  QUALITY  PRACTICABLE- 
FBOM  COPY  FURBISHED  10  DOC  


PRECEDING.  PAGE  NOT  FILMED 
BLANK 
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